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ORGANDIE A 

COLECOES (2) 




COMO PESQUISAR E 



MODIFICAR UM REGISTRO 



IMPRIMA ARQUIVO 



UTILIZE PROGRAMA PARA 



SEUS ARQUIVOS 



Encontrar o nome e o endere^o de uma 
pessoa da qual se sabe apenas o 
sobrenome e a cidade em que reside e 
tarefa simples para o computador. 
Mas, para isso, ^ preciso programa-lo 
com as informa^fifis adequadas. 



Uma das grandes vantagens do arqui- 
vamento no computador, em compara- 
(jao com metodos mais tradicionais (co- 
mo um fichdrio, por exemplo), e a faci- 
lidade e rapidez com que se pode encon- 
trar as informagoes arquivadas. 

O programa da li^ao anterior da se- 
rie Aplica^oes fornecia os meios para se 
implementar um sistema aUamente fle- 
xivel de arquivamento no computador. 
Neste arttgo mostramos come se pode 
pesquisar arquivos, tendo em vista ob- 
jetivos como a corTe<;ao de registros de- 
satualizados ou Incorretos, ou a anula- 
Cao de registros desnecessarios. 



COMO PESQUISAR UM ARQUIVO 



A opc^o de pesquisa e a de niimero 
4 no menu principal. Ela permite que 
voce pesquise os registros a partir da in- 
formafjao contida em um campo, 

Se voce pressionar a lecia 4, o com- 
putador mostrar^, no alto da tela, os no- 
mes dos campos que voce definiu ante- 
riormente para o arquivo; em seguida, 
ele perguntara qual campo voce quer 
pesquisar — I para o primeiro, 2 para 
o segundo, 3 para o terceiro e assim 
por diante, contando a partir do alto 
da tela. A pergunta segointe sera sobre 
o que voce quer pesquisar nesse cam- 
po. Em resposta, voce deve digitar a 
paiavra^ou o niimero que quer procu- 
rar: JOAO ou CAC^AROLA, por exem- 
pio, ou BfBLIA, ou seja li o que for, 
Em seguida pressione < RETURN > on 
< ENTER >. 

A palavra ou o niimero que voce di- 
gitar deve ser exatamente igual ao que 
est4 escrito no campo. Se uma palavra 
foi armazenada com letras maiusculas 
nos registros e voce estiver procurando-a 
com letras miniisculas, o computador 
nao ir^ encontra-la. Se voce liver deixa- 
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do. por engano, um espago antes da en- 
trada em um regjstro, ou apertar o es- 
pacejador ap6s a entrada, provavelmen- 
te o computador nio tr4 ertcontrd-la. Is- 
so ocorre mesmo que a palavra do re- 
gistro e a que voce esid procurando se- 
jam iguais. 

Assim, evite espa^os desnecessarios e 
procure entrar informatoes em tetras 
maiiisculas. A pesquisa se cornarS mais 
facil e menos sujeita a erros. 

Caso o computador nao consiga 
achat nenhum registro com a palavra 
que voce pediu, no campo pesquisado, 
e!e Ihe dird isso e trara de volta o menu 
principal. Se, ao contririo, forem en- 
contradas diversas respostas, ele cofoca- 
ra na tela o primelro registro que tiver 
a informa(;ao pedida e, a partir dai, lis- 
tara em ordem alfabecica todos aqueles 
com informapao igual. 

Voce de%'e entao selecionar uma das 
op<;6es colocadas nas duas linhas abai- 
xo da tela. A primeira e assim: 

PROSSEGUE RETOHNA MENU 

Isso funciona mals ou menos da mes- 
ma maneira que no programa do artigo 
anterior. A tecla P serve para pesquisar 
OS registros selecionadosem ordem cres- 
cente, ao passo que a tecla M o leva di- 
retamente de volta ao menu principal. 
Mas nao acontecer^ nada se voce pres- 
sionar a tecla P quando estiver no ulti- 
mo registro selecionado. A tecla R, na 
primeira modalidade de pesquisa, for- 
nece uma mensagem: "REGISTRO 
NAO ENCONTRADO". 

Talvez a aplica?ao mais litil da op^;ao 
de pesquisa seja descobrir um determi- 
nado registro. Para localizd-to, basta 
lembrar-se de qualquer informaijao so- 
breele. Por exemplo, suponhamos que 
voc^ esteja uttlizando esse arquivo para 
armazenar nomes, endereijos e numeros 
de telefones dos membros de seu clube 
e ja possua os seguintes campos: nome, 
sobrenome, rua, cidade, Estado,c6digo 
postal, numero do telefone. Neste caso, 
voce podera pesquisar um determinado 
registro ate mesmo se lembrar apenas do 
sobrenome da pessoa. 

E se uma parte da informa9ao de que 
vocS se lembrou nao for exclusiva desse 
registro? A solu^ao e simples: por exem- 
plo, se voce procura o registro de uma 
pessoa, sabendo apenas que e!a mora na 
cidade de Sao Paulo, ou que o seu pri- 
meiro nome e Joao, podera evocar to- 
dos OS pauHstanos ou todos os indivi- 
duos de nome Joao e salta-ios ate encon- 
trar o nome correto. Mesmo que o nu- 
mero de nomes fosse muito grande, es- 
sa procura seria mais f^cil do que se ti- 
vesse que percorrer todo o arquivo, re- 
visando um registro de cada vez. 
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COMO MODIFICAR UM REGISTRO 



A segunda linha de op<;oes da parte 
inferior da tela permite outras opfoes de 
trabalho com o registro exibido: 



CORRIGE 



APAGA 



IMPRIME 



Se voce quiser modificar um registro 
mostrado na tela, deve pressionar a te- 
cla C. O computador perguntara 
"QUAL O NUMERO DO CAMPO" 



que voce deseja modificar. Digite o nii- 
mero, contando a partir do alto, 

Em seguida, o computador pedira pa- 
ra "ENTRAR A MODIFlCAgAO". Vo- 
ce deve entao digitar o novo campo que 
quer entrar, ate mesmo se quiser modi- 
ficar apenas uma letra. Quando as teclas 
< ENTER > ou < RETURN > forem 
pressionadas, o computador efetuard a 
modifica?ao no lugar correto do regis- 
tro. Se voce quiser, podera pressionar 
mais uma vez a tecla C e modificar ou- 
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tro campo no mesmo registro. Se voce 
quiser rnodificar um registro que nao es- 
tk na tela, deve pressionar C para retor- 
nar ao menu principal e escolher a op^ao 
de pesquisa 3, para iocalizar o registro 
que deseja aiterar. Outra sai'da seria es- 
colher a op?ao 2, "VER OS REGIS- 
TROS", achando-o e modificando-o. 



APAGUE OS REGISTROS INCORRETOS 



VocS deve primeiro iocalizar o regis- 
tro que deseja apagar, estudando as al- 
temativas. Normalmente, sao apresenta- 
das, no lado inferior da tela, seis opgoes 
padrao. Para apagar um registro e neces- 
sirio pressionar a tecla A. Entao o com- 
putador perguntara: *'VOCfi TEM 
CERTEZA?". Isso evita que voce apa- 
gue, por engano, um registro correto. 

Se voce tern certeza de que quer apa- 
gi-lo, pressione a tecla S. O computa- 
dor apagara entao esse registro e exibi- 
ra o pr6ximo — tanto o registro anota- 
do segundo uma ordem alfab^tica, se 
voce estiver na modalidade de exibipao, 
quanto o que possui o mesmo campo 
que voce esia pesquisando, se estiver na 
modalidade de pesquisa, 

Se voce apagou o ultimo registro en- 
contrado na pesquisa, o computador in- 
formara que nao existem mais registros 
com tal item no campo que o interessa 
e Srari o menu principal de volta. 



IMPRINIA OS REGISTROS 



A ultima op^ao na parte inferior da 
tela pcrmite mandar para a impressora 
Ccaso haja uma) os registros do arqui- 
vo. Se voce pressionar a tecia I na ver- 
sao do programa para o TRS-Color, o 
computador Ihe pedira para "CHECAR 
A IMPRESSORA" . Nesse ponto, i ne- 
cessario averiguar se a impressora esta 
conectada e ligada; se essa condifao for 
satisfeita e mesmo assim a impressora 
nao funcionar, voce devera verificar o 
programa. 

No Spectrum essa linha de mensagcm 
nao e necessdria, pois ele nao reagira a 
tecla I se nao houver nenhuma impres- 
sora conectada. 

Uma vez que voce ja checou se a im- 
pressora esta conectada e ligada, acione 
a tecla C para continuar. Pressionando 
algumas outras letras, a linha "CHE- 
QUE A IMPRESSORA" desaparecerd e 
voce podera novamente utilizar uma das 
seis op^oes padrao, localizadas no lado 
inferior da tela. Case C seja pressiona- 
da sem que haja uma impressora conec- 
tada, ou esta nao funcione por qualquer 
razao, voce deve pressionar as teclas 



< RESET > (no TRS-Color e Apple), 
ou <CTIIL> <STOP> (no MSX), e 

verificar o programa. Para continuar a 
utilizar o programa sem perder os dados 
armazenados, digite de modo direto: 

GOTO 30 

Retornando ao menu principal (uma 
ob.servagao importanti'ssima: nao lente 
modificar qualquer linha do programa an- 
tes de dar o comando acima, caso con- 
tririo perderi todos os dados ja armaze- 
nados na mem6ria RAM da maquina). 



SAIBA UTILIZAR SEUS ARQUIVOS 



Agora voce possui um sistema de ar- 
quivamento altamente flexivel e comple- 
to, que pode ,ser utilizado para armaze- 
nar detaJhadamente qualquer tipo de in- 
formagao. Evidentemente, Voce pode 
utilizar o programa para armazenar, em 
uma linica fita cassete, um fichario 
enorme ou virios ficharios. 

Fitas muito longas, contudo, apre- 
-sentam inconvenientes. Uma solu?ao 
mais pr^tica consiste em armazenar di- 
ferentes arquivos em varias fitas, de mo- 
do a lornd-los mais facilmente localizi- 
veis, Neste caso, e necessario guardar o 
proprio programa em uma fita separa- 
da (somente os micros da linha Spec- 
trum estao dispensados dessa precau- 
?ao). Voce poderi, assim, carregar os 
dados antes de selecionar a opgao 6. 

A primeira vista, isso pode parecer 
um grande desperdicio de numero de 
acessos. Essa impressao, contudo, dei- 
xa de ler sentido quando pensamos no 
espa^o ocupado pelos arquivos dos an- 
tigos cartoes de indexa^ao. 



COMO ENTRAR PROGRAMA 



A seguir, listamos a segunda se«;ao do 
programa de arquivamento de dados 
que, para sua felicidade, i muito mais 
curta do que a primeira. 

Quando acrescenia-la ao programa 
existente, voce notar^ que poucos nume- 
ros de linhas estao duplicados. NSo es- 
quente a cabepa com isso. Os niimeros 
da primeira segao estavam all simples- 
mente para manter o programa intacto 
e permitir o seu teste. Os novos niime- 
ros substituirao os antigos assim que vo- 
ce digita-los. 
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Atencao se voce for utilizar o pro- 
grama abaixo em micros com disque- 
te. Mude o numero 1 1000 do comando 
CLEAR, no comedo do programa, pa- 



ra 80(X), sob pena de nao haver espa?o 
suficiente na mem6ria. 

3000.GOSUB 8500 

3010 PRINT §417, "MODIFICAR QUAL 

CAMP0?(1 A'lA;") ?" ; 
3.020 INS = INKEY$:IF INg-"' THEN 
3020 

3030 J=UAL(IN3) 
3040 IF J<1 OR J>A THEN 3020 
3050 PRINT 6448."" 
3060 PRINT e45+32*J, "•: PRINT €4 
17, "DIGITE O CAMPO MODIFICADO " 
:L1NE INPUT A$(D,J) 
3070 AS(D, J)-LEFT3(A3£D, J) .A(J) 
) 

3080 IF D-R THEN J=-1:G0T0 3130 
3090 IF D-1 THEN J-1:G0T0 3120 
3100 IF AStD.l) >A${D+1,1) THEN 
J = l 

3110 IF ASCD.1)<AS(D-1.1)THEN J 
--1 

3120 IF A$(D+1,1)-"" AND J-1 TH 
EN 3180 

3130 IF J-1 THEN 3160 
3140 IF A$(D,1)>-A$(D-1,1) THEN 

3180 
3150 FOB N=l TO A :X$-A$ {D, N) : A$ 
(D,N) =AS (D-1,N) :A$ (D-1 .N) -X$ :NE 
XT:D-D-1:G0T0 3080 
3160 IF A$CD,1)<-A$(D+1,1) THEN 

3iao 

3170 FOR N=l TO A :XS=AS (D, NJ r AS 

{D,N)=AS(D+1,N) ;A$(D^-1.N)-XS:NE 

XT:D=D+1 :G0T0 3080 

3180 FOR F-1 TO 300 : NEXT : RETURN 

4000 G=D 

4010 GOSUB 8500 

4020 PRINT e449,"V0CE TEM CEHTE 

ZA QUE QUER APAGAR?" 

4030 IN$=INKEYS: IF INS»"" THEN 

4030 

4040 IF im<yS" THEN RETURN 

4050 IF G-NR THEN G=G-1 

4060 CLS 7; PRINT #2 36 , "APAGANDO 

" ; : SOUND 30,1 

4070 IF D-NR THEN 4090 

4080 FOR N=l TO A : AS (D -N) =AS {D+ 

1 ,N) : NEXT: D-D+1: GOTO 4070 

4090 FOR N-1 TO A r AS {D , N) -" " : NE 

XT:NR-NR-1 :D-G 

4100 FOB F-1 TO 400 : NEXT : RETURN 

5000 FOR N-1 TO A : PRINT §33+32* 

N,N,N$(N3 :NEXT 

5010 PRINT 6417, 'QUE CAMPO PROC 

URAR (1 A';A:') ?"; 

5020 INS-INKEYSiIF IN$-'" THEN 

5020 

5030 IF VAL(IN$)<1 OR VAL(INS)> 

A THEN 5020 

5040 SOUND 30,1;Z=VAL(INS) :PRIN 

T &417, "PROCURAH PELO QUE (NO C 

AKPO'iZ;")?" 

5050 LINE INPUT Z$ 

5060 D-1:G=0:CH-1 

5070 IF D>NR AND 0=1 THEN G-0:C 

H--1 ELSE IF D>NR THEN 5230 

50BO IF D<1 AND G= 1 THEN G-0:CH 

=1 ELSE IF D<1 THEN 5230 

5090 IF AS(D,Z)<>ZS THEN D=D-t-CH 

:GOTO 5070 

5100 LD=D:C'=1 : GOSUB 8500 ^ 

5110 PRINT §451, "pROSSEGUE *3 
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ETORNA ehENU cORRIGE aPA 

GA iMPRIME"; 

5120 INS-IN!<EY$:IF INS""" THEN 

6120 

5130 IN-INSTH(1.RSS,INS) 

5140 ON IN GOTO 5160.5160.5170, 

5180.5190,5200,5210 

5150 GOTO 5120 

5160 CH-1 :D-D+1 :GOT0 50?0 

5170 CH— 1:D-D-1:G0T0 5070 

5180 RETURN 

5190 GOSUB 3Q0O:GOTO 5090 

5200 GOSUB 4000:GOTO 5090 

5210 GOSUB 10000:GOTO 5070 

5220 GOTO 5110 

5230 CLS 2; PRINT e200."NENHUM B 

EGISTRO COM ";: PRINT 6271-LEN(Z 

5)/ 2," "iZS;" "; 

5240 PRINT §330," NO CAMPO"lZi 

5250 FOR G=l TO 5:SCBEEN , 1 : FO 

R F-1 TO 500: NEXT [SCREEN , : FO 

R F=l TO 500:NEXT F,G:RETUHN 



40Q0 FOR N=V TO A: PRINT INVEH 
SE V;AT N*2.9;N; INVERSE U ; TAB 
11 ;": ";NS(N) : NEXT N 
4010 PRINT '■"PROCURAH EM QUE C 
AMPO (1 A " ; A ; " ) ? " 
4020 IF INKEYS-"" THEN GOTO 40 
20 

4030 LET lf$-INKEyS: IF CODE YS< 
49 OR CODE Y5>48+A THEN GOTO 4 
030 

4040 SOUND .1,10: LET 2-VAL Y$: 
PRINT '"PROCURAR PELO QUE NO C 
AMPO ":Z;"?": DIM ZS(V,A(Z)): I 
NPUT LINE ZS (V) 

4044 CLS : LET K-V 

4045 IF AS(K.B[Z)+V TO B(2+V))= 
2S (V) THEN GOTO 4050 

4046 IF K-R OB AS(K,V}-" " THEN 
CLS : PRINT AT 9,3;"NENHUM BE 

GISTRO COM ";Z$(U),'TAB 10; "NO 
CAMPO ";Z: PAUSE 150: RETURN 

4047 LET K-K+V: GOTO 4045 

4050 LET D-V: LET PM-V: LET M0= 

V 

4060 IF D>R THEN LET D-PM 

40 70 IF D-U THEN LET D-PM 

4080 IF A$(D,V)-'* " THEN LET D 

-PM 

4090 IF AS(D,B(2)+V TO B(Z+V))< 

>ZS(V) THEN LET D-D+MO: GOTO 4 

06O 

4100 GOSUB 9500 

4110 LET PM-D 

4120 IF OP-V THEN LET MO-V ; LE 

T D=D+MO: GOTO 4060 

4130 IF OP-2 THEN LET MO--U: L 

ET D=D+MO: GOTO 4060 

4140 IF OP-a THEN RETURN 

4150 IF OP-4 THEN GOSUB 8000 

4160 IF OP-5 THEN LET DF-U: LE 

T MD-2: GOSUB 9000: IF DF'V OR 

h$i<J,V)'" " THEN RETURN 

4170 GOTO 4100 

8000 INPUT AT U,U; "CAMPO A SER 

CORRIGIDOd A "; (A) i")7" 1 J: IF 

J>A THEN GOTO 8000 

6010 PRINT FLASH V;AT V+2*J,12 

;AS(D,B(J)+V TO B(J+U)): INPUT 



AT U.Uj'Digite o campo modifica 

do", LINE A$(D,B(J}+V TO B(J+U) 

): PRINT AT V+2* J . 1 2 ; A$ (D. B ( J) + 

V TO B(J+V)) 

8020 IF D-B THEN LET J--V: GOT 

8070 

8030 IF D-V THEN LET J-V: GOTO 

8060 
8040 IF AS tD)>AS(D+V) THEN LET 

J-U 
8050 IF ASCD)<A$(D-V) THEN LET 

J--V 
8060 IF A$(D+V,V)-" " AND J-V T 
HEN GOTO 85 00 
8070 IF J-V THEN GOTO 8100 
6080 IF A$(D)>-AS(D-V) THEN GO 
TO 8SO0 

8090 LET X$-AS(D): LET A$ (D) -AS 
(D-V): LET AS (D-V) -X$ ; LET D-D- 
V; GOTO 6020 

8100 IF A$(D)<-AS(D+V) THEN GO 
TO 8500 

6110 LET XS-AS(D): LET AS[D)-AS 
<D+V) : LET AS(D+V)-X$: LET D-D+ 
V: GOTO 8020 

8500 SOUND .1,10: PRINT AT U,U; 
"ReoiBtro numero ":Di" " : RET 
URN 
9000 PRINT AT 19, U; "TEH CERTEZA 

DE QUE QUER APAGAR?": PAUSE U 
9010 IF INKEYS="" THEN GOTO 90 
10 
9020 IF INKEY$<>"S" THEN PRINT 

AT 19,U:" 

": SOUND .1,10: RETU 
RN 
9030 PRINT AT 19.0;" APAGANDO 

9035 LET DD»D 

9040 IF D-R THEN LET DD-DD-V: 

GOTO 9060 

9O50 IF A3[D+U,V)<>" " THEN LE 

T A5 (D)-AS tD+V) ; LET D=D+U : GOT 

9040 

9060 LET ASfD)-"": FOR F-V TO 1 

00: NEXT F: PRINT AT 19, U;" 



90 70 

HEN 

9072 

9075 

-D-V 

90B0 

9090 

9100 

ZS(V) 

9110 

LET 
9120 
9130 
9140 
EN L 
MO-U 
9150 
-Z$(V 
9160 



LET D-DD: IF AS(V,V)-" " T 

LET D-U: RETURN 

IF D-U THEN LET D-V 

IF AS(D,V)=" " THEN LET D 

IF MD-V THEN RETURN 

LET K-V 

IF AS(K,B(Z)+V TO B(Z+V})- 

THEN GOTO 9130 
IF K-H OR ASCK.V)-" " THEN 

DF-V: GOTO 4046 
LET K-K+V: GOTO 9100 
LET DD-D: LET PA-U 
IF AS(DD,V)-" " OR DD-U TH 
ET PA-2: LET DD-D: LET MO- 

IF AS(DD,B(Z)+V TO B(Z+V)) 
) THEN LET D-DD: RETURN 
LET DD-DD+MO: GOTO 9140 




3000 GOSUB8500 

3010 LOCATED. 22 :PRINT"Modificar 

qual campo? (1 at^ ";A;")";; 
3020 IN3-tNKEYS;iriN3-''"THEN302 



3030 J-VAL(IN$) 

3040 1FJ<10RJ>ATHEN3020 

3060 LOCATEO , 22 : PRINTSPACES (39) 

; :LOCATE0 , 22: PRINT" Entre com o 

campo modificado: " ; : LINEINPLTTA 

5 ( D J 1 

3070 A$(D, J)-LEFT$(A$(D, J) ,ACJ) 

) 

3080 IFD-BTHENJ — l:GOTO3130 

3090 IFD-lTHENJ-1 :GOTO31Z0 

3100 IFAS(D,1)>AS(D+1.1)THENJ-1 

3110 IFAS{D,1)<A$(D-1,1)THENJ— 

1 

3120 IFA$(D+1,1)-""ANDJ-1THEN31 

80 

3130 1FJ-1THBN3160 

3140 IFAS (D, 1) >-AS(D-l , 1)THEN31 

80 

3150 FORN=1TOA:SWAPAS(D,N) ,AS{D 

-1,N) :NEXT:D-D-l:GOTO3080 

3160 IFA$ (D, 1 > <-A$ (D+1 , 1 ) THEN31 

eo 

3170 FORN-1TOA:SWAPA$(D,N) ,A$(D 

+1,N) :NEXT:D-D+l:GOTO3080 

3180 FORF-lTO300:NEXT:RETURN 

4000 G-D 

4010 GOSUB8500 

4020 LOCATEO , 22: PRINT"Voc6 conf 



3 APUacOES 3 




irma a delegao? fS/N) " ; 
4030 IN$-INKEY$:IFINS-" 



THEN403 



4040 IFIN$<>"S"THENRETURN 

4050 IFG-NETHENG-G-1 

4060 CLS : LOCATEIZ , 15 : PRINTCHHS ( 

7) :"Apaoando" ;CHHS (7) i 

4070 IFD-NRTHEN4090 

4080 F0RN=1T0A:A$(D,N)-A$(D+1,N 

) :NEXT:D-D+1 ;GOTO4070 

4090 F0RN-1T0A:AS(D,N)-"'':NEXT: 

NH-NH-l :D-G 

4100 FORF-aTO400:NEXT:RETyBN 

5000 FORN-ITOA : LOCATES . 2*N+2 : PR 

INTN,N$(N) :NEXT 

5010 LOCATEO, 22 :PEINT"Procurar 

por qual campo? CI attf "lA;")"! 

5020 INS-INKEYS:IFINS-""THEN50Z 



S030 IFVAL(1N$)<10RUAL(IN$)>ATB 

EN5020 

5040 PHINTCHR$(7) ; :Z-VAL(IN$) :L 

OCATEO ,22: PRINT"Procurar o que 

no campo " ;Z; "7" ; SPACES (8) 

5050 LINEINPUTZS 

5060 D-1:G-0:CH-1 

5070 IFD>NaANDG-ITHENG-0:CH— IE 

LSEI FD>NR1 HEN52 30 

5080 IFD<1ANDG-1THENG-0:CH-1ELS 



EIFD<1THEN5230 

5090 IFAS CD,Z) <>Z$THEND-D+CH:GO 

TO5070 

5100 LD-D:G-1 :GOSUB8500 

5110 L0CATE3, 22; PRINT" tPlrosgeg 

ue [Hletorna [MJenu [C]o 

rrige [Alpaga [l]Bipri»e" 

5120 lN5-rNKEV$:IFIN$-""THEH512 



5130 IN-INSTR(1,R$,INS) 

5140 ONING0TO5160.5160. 5170, 518 

0,5190,5200,5210 

5160 GOTO5120 

5160 CH-1 :D-D+l:GOTO5070 

5170 CH — l:D-D-l:GOTO5070 

518 RETURN 

5190 GOSUB3000rGOTO5090 

5200 GOSUB4000:GOTO5090 

5210 GOSUBl0O00;GOTO5070 

5220 GOT05110 

5230 CLS: LOCATEO, 15 ;PRINT"N3o e 

ncontrei " ; ZS : " era ";N$tZ) 

5250 F0RF-1TO500; NEXT: RETURN 



H] 



NT "MUMEBO DO CAMPO A SER MODIF 

ICADO ->" ; : GET CPS 

3020 IF CPS < "0" OR CPS > "8" 

THEN 3010 
3030 CP - VAL 

THEN POKE 34, 
3040 VTAB 23: 
956 

3050 PRINT "CAMPO CORRIGIDO -> 
- ; : INPUT AS<D.CP) 
3060 ASCD.CP) - LEFTS (AS(D.CP 
) .A(CP)) 



{CPS) : IF CP 
, : RETURN 
HTAB 1: CALL 



3070 


IF CP < > 1 


THEN 


3000 


3080 


IF A$(D.l} > 


AS(D 


+ 1,1) 


AND D 


< > NR THEN 


V - 1 


: GOTO 


3200 






« 


3090 


IF AS(D,1) < 


AS CD 


- 1,1) 


AND D 


> THEN V - 


- 1; 


GOTO 3 


200 








3100 


GOTO 3000 






3200 


FOR K - 1 TO 


ArXS 


- AS<D, 



N);AS(D.N) - AS(D + U,N):AS(D + 
V.N) - X$: NEXT :D - D + V: GO 
TO 3080 
4000 GOSUB 6500: VTAB 23 

PRINT "COHFIRMA A DELECAO 

GET INS 



4010 
7 "; 
4020 
URN 
4030 
4040 
4050 
A$tX 
4060 NH 
THEN 



IF INS < 



THEN RET 



IF D - NR THEN 4060 
FOR X - D TO NR 



FOR V ■ 
1,Y) : 
NR 
POP 



4 070 RETURN 

5 000 DD - 1 : 
TO A: PHINT 
" :-':N$(X) 



3000 POKE 34,22: GOSUB 6500 
3010 VTAB 23; CALL - 958: PRI 



■ 1 TO A:AS(X,Y) - 
NEXT ; NEXT 
- 1 :D - NR: IF D - 
: RETURN 

PRINT : FOR X - 1 
: HTAB 10: PRINT X; 
NEXT 

5010 VTAB 21: PRINT " PROCURAH 
POH QUAL CAMPO? ' ; : GET CPS 
5020 CO - VAL (CPS) ; IF CO > A 

OR CO < 1 THEN RETURN 
5025 PRINT CO 

5030 VTAB 22: HTAB 1: PRINT "P 
ROCURAR QUE EM ";NS(CO);: INP 
UT PRS 

5035 IF PRS - "" THEN RETURN 
5040 HTAB 13: PHINT " PROCURAND 
0. . ."; 

5050 FOB XX - DD TO NR : IF LE 
FTS (A$(XX,CO), LEN [PR$) ) - PR 
S THEN FL - 1;D - XX: GOSUB 602 
0: GOTO 5200 
5060 NEXT 

5070 IF FL - THEN VTAB 21: 
HTAB 1: CALL - 958: PRINT "NAO 

ENCONTHEI " : PRS ; " EM ';NS(CO): 

FOR X - 1 TO 5000: NEXT ; GOTO 

5090 
5080 VTAB 21; HTAB 1; CALL - 
958: HTAB 8; PRINT "FIM DE ARQU 
IVO ENCONTRADO" : FOR X - 1 TO 5 
000: NEXT 

5090 FL - 0;PRS - "": RETURN 
5200 IF XX - NR THEN 5090 
5210 VTAB 15: PRINT "CONTINUO 
PROCURANDO 'sPRS: PHINT " EM ' ; 
NSCCO);-? (S/N) ';: GET INS 
5220 IF INS • "N" THEN 5090 
5230 IF INS - "S- THEN DD - XX 

+ 1: GOTO 5050 
5240 GOTO 5210 



85 



PROGRAMACAO BASIC 5 




JOG©! 



A COIR 




O TRS-Color (e seus compativeis na- 
cionais, como o CP-400) possui cinco 
modaljdades para elaboragao de grafi- 
cos de alta resolugao (PMODE), nume- 
rados de a 4. Eles diferem na resolu- 
?lo, no grau de dctalhe e nas cores dos 
desenho exibidos. PMODE e uma ins- 
tru(;ao BASIC, especifica para esses mi- 
cros, e significa /j/c/ure modes (modali- 
dades grfficas). Ela estabelece o conj un- 
to de cores a ser empregado. Na moda- 
lidade de quatro cores — PMODE 1 ou 
3 — , o conj unto consiste de verde. 
amarelo, azul e vermelho, enquanto o 
conjunto 1 de cores 6 formado por bran- 
co.azul-piscina (ciano), magenia e laran- 
ja. Para o conjunto de cores, digiie o 
comando SCREEN 1,0; para o conjun- 
to 1 , recorra a SCREEN 1,1. 

A diferenga entre PMODE 1 e PMO- 
DE 3 se encontra na resoluvao da tela 
grafica que eles utitizam. Resolu^ao gra- 
fica 6 o niimero de pixels (picture ele- 
ment ouelemenlode figura) que podem 
ser trafados na tela e, como onomediz, 
e a unidade minima de construcao de fi- 
guras, Ele corresponde a urn bloco re- 
tangular "aceso"na tela. 

O programa abaixo mostra a capaci- 
dade de trabalho com graficos de reso- 
lu?ao m^dia do TRS-Color. Do jeito que 
esti, eie roda apenas em maquinas com 
gravador cassete. Para execuia-lo em 
uma miquina com Disk BASIC, altere 
OS enderecos nos comandos POKE nas 
finhas 30 e 50, mudando-os de J800 e 
1801 para 3584 e 3585, respectivamente. 

10 PM0DE3,1:PCLS:SCREEN1, 

20 FOR 1=1 TO 9 

30 HEAD A,B:POKE 1800+1*32 , A : PO 

KE 1801+1*32. B 

40 NEXT 



'*<^1IF-.W v^ 




192 
213 
213 
213 
234 
234 
213 
213 
213 
192 
192 



Voci \i sabe como construir blocos 
graficos em preto e branco. Aprenda 
agora a colorir seus desenhos em 
micros da linha TRSColor, empregando 
tdcnicas mais sofisticadas. 



C OMO UTILIZAR CONJUNTOS 

DE CORES DiVERSAS 

COMO DEFINIR CORES EM 

BLOCOS GRAFICOS 

EXPLORE OS PMODE 



50 FOB K-10 TO 22: POKE 1800+K*3 

2,192:POKE 1801+K*3Z. :NEXT 

60 GOTO 60 

70 DATA 192.0,213.149.213,149,2 

13,149,234,170.234,170,213.149, 

213.149.213,149 

O programa desenha uma bandeira 
e um mastro na tela. Os c6digos dos blo- 
cos grdficos que constituem o desenho 
sao especificados em uraa linha DATA; 
o programa as le e coloca os caracieres 
grdficos correspondentes na m'em6ria de 
video, atrav^s do comando POKE ou 
PRIPJT®. Desta vez, para que voce 
possa ver OS blocos grdficos mais dara- 
mente, os c6digos sao colocados na pa- 
gina de memoria de video, a partir do 
enderego 1800, o que os situa no meio 
da tela. Isto ocorre porque a pagina gra- 
fica usada (PMODE 3) tem seu endere- 
90 absolute de inicio na loca?ao 1536. 
O programa nao funcionar^ em mSqui- 
nas com BASIC de disco. 

A linha 10 seleciona o PMODE 3 
(conjunto de cores 0) e timpa a tela. As 
linhas 20 a 40 leem nove pares de dados 
que definem o desenho da bandeira, e os 
colocam diretamente na pigina de video 
correspondcnte, atraves do comando 
POKE. O restante da bandeira e desenha- 
do pela linha 50, que tra^a o mastro atra- 
ves de dois POKE (codigos 192 e 0), repe- 
tidos 22 vezes. A linha 60 forma um lago 
sem fim, cuja tiTiica fungao e "congelar" 
a tela grifica. Pressionando < BREAK >, 
voce inierrompe o programa. 

A principal diferenga entre a tecnica 
que tinhamos aprendido antes e a utiti- 
zada neste programa est^ nos dados de 
definitjao da figura. Os c6digos estao em 



decimal e foram convertidos a partir de 
um niimero binirio de oito bits. Mas, 
aoinvfo de bits individuals, que dizem 
ao computador para ligar ou desligar pi- 
xels individuals, os pares de bits estabe- 
lecem agora que cor serd atribuida aos 
pares de pbtels. No PMODE 1. um par 
de bits diz ao computador para situar 
dois pares de pixels, um abaixo do ou- 
tro na tela. 

A figura 1 mostra como a bandeira 
€ feita de pares de pixels: ela d definida 
atraves de um conjunto de mimeros bi- 
ndrios de dois bits, correspondentes a 
cada um dos dois blocos de pixels. No 
conjunto de cores voce deve escrever 

00 para um bloco de cor verde. 01 para 
um bloco amarelo, 10 para um azul e 1 1 
para um vermelho. Quatro desses mime- 
ros de dois bits compoem cada parte dos 
dados de oito bits. 

Caso lenha escolhido o conjunto de 
cores 1, digitando SCREEN 1,1 na linha 
10, voc6 terd uma bandeira desenhada 
em branco, ciano, magenta e laranja. 
Nesse conjunto de cores voce escreve 00 
quando quer um bloco branco opaco, 

01 para um azul ciano, 10 para um bloco 
magenta e 1 1 para um laranja. 



O programa abaixo permite ver 
efeito que os codigos graficos em DA- 
TA tem sobre os pixels e as suas cores 
em cada um dos PMODE (rodar apenas 
nos micros com BASIC para cassete). 

10 CLS 

20 INPUT'MODO CRAFICO{0-4) -;M0 



30 MO-rWT(MO) :IF MO<0 OR M0>4 T 

HEN 20 

40 1NPUT*NUMEH0 DA TELA(O-l) ": 

ST 

50 ST-INT(ST) :1F ST<0 OH ST>1 T 

HEN 40 

60 INPUT "NUMEHO (0-255) "iNU 

70 NU-INT(NUJ :IF MUCO OB NU>255 

THEN 60 
80 IF M0<4 THEN LE-2 ELSE LE-1 
90 IF M0<2 THEN DE-2 ELSE DE-1 
100 IF (MO AND 1)-1 THEN SP--2 E 
LSE SP--1 

HO FOR K-7 TO STEP SP 
120 FOR L-l TO LE 
1.30 FOE J-1 TO DE 
140 IF SP=-1 THEN PP-1358+32*J+ 

(3-K) *LE+L:CO-INTt .5+(NU AND 2" 
KJ/a^K) :GOTO 160 

150 PP-1393+32*J+L-K:C0-INT(.5+ 

(NU AND 3*2- (K-1) )/2- (K-D) 

160 POKE PP,113-SP*15+CO*(14-SP 

)+ST*64 

170 NEXT .J, L 

180 POKE PP-32*DE,47+K 

190 POKE PP-32*DE+1+SP.48+K 

200 IF SP=-2 THEN POKE PP+31,11 

2-{C0>l) 

210 POKE PP+21,112+(C0 AND 1) 

220 NEXT K 

230 PRINT §482, "PHESSIONE QUALC 

UER TECLA PARA CONTINUAR" ; 

240 SCREEN , 1 -ST 

250 AS-INKEYSrlF A3-"" THEN 250 

260 GOTO 10 

O programa Ihe pedird para selecio- 
nar uma modatidade de grafico (PMO- 
DE) e o niimero de tela (SCREEN). A 
seguir, digite um niimero entre e 255. 
Aparecerao na tela as cores e os tama- 
nhos relatives dos pixels, com os mime- 
ros dos bits em cima e os seus equiva- 
lentes binirios embaixo. 




IS19D0 
PMODE 


PIXELS 


CONJUNTO DE CORES 


SCREEN 1,0 SCREEN 1,1 





■ ■ 

■ ■ 


preto e verde preto e branco 


1 


■ ■ 


verde, amareto, branco, ciano, 
azul e vermelho magenta e laranja 


2 


■ ■ 


preto e verde preto e branco 


3 


as 


verde, amarelo, branco, ciano, 
azul e vermelho magenta e laranja 


4 


• 


preto e verde preto e verde 



[1 



4 CODIGODiMAQUfNA 4 




NTRAIR 
DE MAQUIIH 



COMO ENCONTRAR UM lUGAR 
PARA CQDIGO DE MAQUINA 



PROGRAM A MONITOR 




SAIBA USAR MONITOR 



RODE UM PROGRAMA 



micro responde automaticamente a 
comandos em BASIC, thsta li^ao voce 
aprender^ a trabalhar com c6digo 
de mdquina, usando urn programa em 
BASIC e a instru93o POKE. 



Embora o c6digo de maquma seja a 
linguagem de microprocessador, nao exis- 
tem meios de colocd-lo diretamente na 
mem6ria de um computador pessoal. E 
pro;iso entri-lo atraves de um outro pro- 
grama — o que na maioria dos micros 
atuais significa utilizar a linguagem BA- 
SIC para esse programa, pois ela e a lini- 
ca disponivel na membria ROM da ma- 
quina. Alem disso, nao podemos man- 
dar o computador executar um progra- 
ma em c6digo de maquina uttlizando um 
comando nesse cbdigo; e precise utilizar 
tambim uma insirufao em BASIC. 

Existem pro gramas espedais para 
qucm deseja programar diretamente em 
linguagem de mdquina (ou seja, utilizan- 
do codigos em hexadecimal). Esses pro- 
gramas sac chamados de moniiores e 
permitem, entre outras coisas, entrar um 
programa em hexadecimal na mem6ria 
da maquina, execut^-lo, listd-Eo na tela 
ou na impressora, corrigi-lo, etc. 

Os micros da linha TRS-80, comr 
tiveis com as maquinas de Radio ShacK 
americana's, modelos III e lV,|tem um 
monitor disponivel na mem6ria. Esse 
monitor permite o trabalho direto com 
codigos hexadecimais e e bastante com- 
plete. Ja OS micros compati'veis com o 
Modelo I do TRS-80 nao dispoem dcs- 
se recurso, necessitando de um progra- 
ma elaborado em BASIC, especial ou 
disponivel comercialmente. 



gcH] 



Os micros das linhas Apple II -t-, lie 
e lie, bem como o Microdigital TK-2000, 
em todas as suas versoes, tern um pro- 
grama monitor embutido, para trabalho 
direto com hexadecimais. O modelo 
TK-2000 conta ainda com uma vantagem 



adicional; um miiii-Assembkr disponive! 
na ROM do equipamento, que permite 
a programagao com cddigos mnemoni- 
cos e que pode ser invocado diretamente 
do BASIC, pelo comando MA, 



\fiU 



Essas mdquinas nao oferecem moni- 
tores ou montadores embutidos na 
ROM. Precisam, portanto, de progra- 
mas externos, que devem ser carregados 
previamente na memoria RAM, para o 
trabalho direto com a linguagem de md- 
quina (cddigos hexadecimais). 

O instrumento beisico para entrar 
uma rotina de maquina e o comando 
POKE. Ele serve para colocar os codi- 
gos de mdiquina, byte por byte, na me- 
moria do computador, usando endere- 
fos absoluios (isto i, o mimero real da 
locagao de memoria, em vez de um no- 
me simbolico de variavel, como o As- 
sembler e BASIC fa2em), 

Nos micros compativeis com Sinclair 
Spectrum, ZX-81, e TRS-80 Modelo 1 
(BASIC Nivel II, da versao cassete), vo- 
c& nao pode usar um hexadecimal com 
o comando POKE, apenas um mimero 
decimal. Assim, os hexadecimais de sua 
rotina de c6digo de maquina devem ser 
convertidos para decimals, antes de se- 
rem entrados. iA o TRS-Color, os 
TRS-80 Mod. II] e IV (com o Disk BA- 
SIC), o MSX e o Apple II aceitam he- 
xadecimais no POKE. 



ONDE COLOCAR PROGRAMA 



Antes de entrar um programa em c6- 
digo de maquina, voce deve decidir on- 
de iri colocS-lo na memdria. Obviamen- 
te, nao se deve pd-lo em uma area de 
memoria utilizada pelo micro, senao o 
seu programa serdi de.«ruido quando al- 
gum outre na mem6ria ROM entrar em 
afao, ou o computador deixar^ de fun- 
cionar corretamente, pois terd algum da- 
do alterado pelo seu programa. 

Voce tambem precisa ser cuidadoso 
quando utilizar as areas de membria 
RAM normalmente reservadas pelo in- 
terpretador BASIC (essas ireas sao des- 
critas no manual de opera^ao ou progra- 
magao de seu micro). Como a rotina de 



codigo de maquina pode ser chamada de 
um programa em BASIC, se um codigo 
de mdquina for gravado nessa area em- 
quanto o programa em BASIC estiver 
sendo rodado, ocorrerao falhas de ope- 
raipao, perdas de programa. ou atl o 
"congeiamento" da maquina. 

Voc6 pode utilizar areas de membria 
intermediiria, como o buffer da inter- 
face para o gravador cassete ou para a 
impressora, se o programa for curto, e 
desde que voce nao esteja utilizando es- 
ses perifericos. Se voce olhar o manual 
de programa?ao do seu computador, ve- 
ra tambem que aiguns modelos tern na 
membria RAM ireas nao usadas que 
podem ser empregadas para programas 
curtos era cbdigo de maquina. 



Nos micros compativeis com o Sinclair 
Spectrum, como o Microdigital TK-90X, 
voce pode utilizar a area de graficos defi- 
m'veis pelo usudrio (UDG) — entre FF58 
e FFFF, no modelo de 48 K — desde que 
ela nao esteja sendo utilizada pelo seu 
programa. Mas, normalmente, programas 
em cbdigo de maquma sao colocados en- 
tre a Area de graficos UDG e o final da 
irea BASIC, atraves da modificacao do 
endere<;o do slstema, chamado RAMTOP 
(e que identifica o maior endere^o dispo- 
nivei na membria RAM do computador), 
para um valor menor. 

Desse modo, a irea para o BASIC fl- 
ea diminuida, mas, como'naoipodCiUl- 
trapassar o endere?o arma^enado na lo- 
cagao RAMTOP, o cbdigo de miquina 
e protegido contra qualquer interferen- 
cia por parte do BASIC. 

A RAMTOP e uma variivel de siste- 
ma, e sua posi?ao i fornecida pelo apon- 
tador nas locagoes de membria 5C62 e 
5CB3. Para movimentar o RAMTOP 
para baixo voce precisa apenas colocar, 
com o comando POKE, um valor mais 
baixo nessas duas loca<;bes. Mas o Spec- 
trum possui um oulro comando BASIC; 
o CLEAR, que faz essencialmente a 
mesma coisa e deve ser seguido pelo en- 
derei;o decimal do lugar para o qual vo- 
ce quer que o RAMTOP seja rebaixado. 

O comando CLEAR tambem limpa o 
arquivo de Qcibii;§o (ou seja, a tela), da 
mesma forma que um CLS (e todas as va- 
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riiveiSl. A16m disso, ele restauia a posi- 
(io do comando grifico PLOT para as 
coordenadas 0,0 — que definem o lado 
inferior esquerdo da tela — , restabelece o 
aponlador do comando READ para o ini- 
cio da lista de deciarai;6es DATA do pro- 
grama, e zera todos os RETURN ativos. 
Em um TK-90X com 16 K, por exempio, 
comando mais usual €: 

CLEAR 31999 

Isso modifica o RAMTOP para 31 999 
ou 7CFF em hexa, deixando 60O bytes 
acima dele — isto t, protegendo a area 
que vai desde esse ponto ate o final da 
area de UDG (que estd em 32 600) para 
a cotocacao de programas em c6digo 
de miquina. No modelo de 48 K, o co- 
mando deve ser, nesie exempio: 

CLEAR 6 3999 

O RAMTOP desce, de tal modo que 
a area do BASIC passa a terminar em 
63 999, ou F999 em hexa: voce pode, as- 
stm, iniciar o seu programa de c6digo 
de maquina em 64 000 ou FADO em he- 
xa, Na maioria das aplicafoes isso dd- 
xara espaijo suf iciente para os seus pro- 
gramas em c6digo de maquina, 

Com programas de codigo de mdquina 
mais longos que o usual, voce deve abai- 
xar o RAMTOP ainda mais. Mas isso po- 
de nao ser bom na prdtica: com o RAM- 
TOP tao baLxo, nao existe espago nem mes- 
mo para entrar uma linha de BASIC. 



No ZX-81, pode-se abaixar o RAM- 
TOP, alterando as locapoes de mem6ria 
16 388 e 16 389 por meio de comandos 
POKE, de modo a criar uma area prote- 
gida, onde os programas de cddigo de 
mdquina nao sejam modificados. O pro- 
blema e que nao so pode armazenar em 
fita o programa que estiver nes.sa area. 

Programas curtos em c6digo de ma- 
quina podem ser colocados com POKE 
na membria intermedidria [buffer) pa- 
ra a impressora, que ocupa as locafoes 
de memoria de 1 6 444 a 1 6 476 . Existem 
outras ircas pequenas nas quais voce 
pode colocar seus programas em c6di- 
go de maquina, mas nao i possivei 
guarda-los em fita, 

Existem tres maneiras de se colocar 
um programa de codigo de maquina em 
uma area BASIC, p/olegendo-o contra 
outras grava?6es: p6de-se entra-lo como 
parte de declara?6es REM; colocd-lo 
dentro de variaveis alfanumdrlcas ou 
cordoes de caracteres; ou pode-se 
armazena-lo em um conjunto numerico. 

Para entrar um programa em cddigo 
de miquina como parte de uma decla- 
ragao REM voce deve calcular qual se- 



r^ sua extensao (contar os bytes). EntSo, 
na primeira linha do programa em BA- 
SIC, digite um REM seguido de pontos: 

10 REM , 

O niimero de pontos deve ser pelo 
menos igual ao niimero de bytes em seu 
programa de codigo de maquina. 

Em seguida, voce deve colocar os c6- 
digos do seu programa nas locagoes de 
membria ocupadas pela declara^ao 
REM, um byte de cada vez. Isto d feito 
por intermedio da declaracao POKE. Se 
sua REM estiver na primeira linha do 
programa em BASIC, a drea reservada 
para isso comega na ioca^ao de memd- 
ria 16 514. 

Outra maneira de criar um espago 
protegido e dimensionar um conjunto, 
A linha de programa em BASIC: 

10 DIM A{100) 

fornecerS 500 locafoes livres da mem6- 
ria na irea de variiveis. Para cada ele- 
mento desse conjunto, o ZX-81 deixa 
cinco locates livres, Se voce quiser des- 
cobrir onde comc\'ar a armazenar o c6- 
digo de miquina neste caso, deverd uti- 
iizar a funcao PEEK, para obter o va- 
lor armazenado na varidvel de sistema 
VARS, que esta localizada em 16 400 e 
16 401: 

PRINT PEEK 16400+PEEK 16401+6 

Isso fornece o enderego inicial da 
area protegida que voce criou (as seis lo^ 
ca?6es extras de membria co'ntem deta- 
Ihes do conjunto). Voce podera. entao, 
usar a instrugiao POKE para entrar o 
programa em codigo de maquina, a par- 
tir do endereijo reservado, E possivei 
tamb^m criar espafo em um cordao com 
uma linha BASIC, como: 

10 LET ss=" " 



com tantos pontos quanto bytes no pro- 
grama de codigo de maquina. Para achar 
o endcreco inicial, voce deve examinar o 
que tern em VARS e acrescentar 6. As 
seis locagdes extras de membria, neste ca- 
so, contem o nome do cordao. 

O problema com esses dois metodos 
^ que a area das variaveis ^ apagada 
quando se aperta a tecla CLEAR ou se 
roda programa em BASIC de novo. 
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O modo mais ficil de proteger os 
programas de codigo de maquina nesse 
computador consiste em utilizar o co- 
mando CLEAR do BASIC. O CLEAR 
tambem zera todas as variaveis numeri- 
cas alfanumericas. Usualmenie, de as- 
sume esta forma: 

CLEAR 200. 30000 



Ele limita o topo da memoria RAM 
(normalmente, em H7FFF ou 32 767 em 
decimal) em 30 000, deixando 2 767 
bytes livres para os programas de c6di- 
go de maquina. 

Nesses micros o comando CLEAR 
tern outra funcao separada, e nao rela- J 
cionada: a atribuigao de espa?o de me- ■ 
moria para as varidveis alfanumericas. O 
primeiro niimero do comando CLEAR 
fornece o espafo de cordoes que deve ser 
reservado para o programa em BASIC, 
Quando a maquina e ligada, o compu- 
tador guarda 200 bytes logo abaixo do 
enderefo maximo de memoria (RAM- 
TOP) paras as variaveis alfanumericas. 
Assim, quando voce deixar o RAMTOP 
mais baixo, devera reservar, abaixo de- 
le, tambem uma quantidade similar (200 
bytes), para os cordoes, 

Teoricamente, voce pode baixar o 
RAMTOP do TRS-Color ate quase o 
topo da area reservada para as telas gra- 
ficas, embora a maquina va precisar de 
um mini mo de espaco para o BASIC. 

O PCLEAR 1 deixa apenas uma das 
paginas de gr^ficos; assim, voce usa o 
CLEAR para iimitar a memoria em 
§H3680 (em compuladores sem disco, 
apenas). O PCLEAR 8 atribui as oito 
paginas de graficos, permitindo que se 
reserve membria so ate §H3680. Se vo- 
ce nao utiliza o comando CLEAR, o 
computador atribui quatro paginas de 
graficos; assim, voce so podera usar o 
CLEAR ai^ §H1E80. 

Esses limites dependem muito do que 
esta dentro da maquina no momento. Se 
exislir algum tipo de programa em BA- 
SIC, provavelmente voce obteri uma 
mensagem de erro "OM" {our of me- j 
mory). Assim, para todos os propbsitos ^ 
praticos, trabalhar prbximo ao iimite nao 
sera bom, pois voce devera entrar um 
programa BASIC em algum lugar para 
chamar o seu programa de codigo de ma- 
quina, Se voce quiser iniciar seu progra- 
ma de codigo de maquina com um nu- 
mero redondo como 30 000 entao digite: 



CLEAR 200,29999 
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Para proteger os programas de cddigo 
de maquina neste micro utilize o coman- 
do CLEAR do BASIC. Esie limita a me- 
mbria RAM maxima, reservando um es- 
paifo acima para seu programa em c6di- 
go de maquina. O CLEAR tambem zera 
as varidveis numericas alfanumericas, 
Normalmente, ele assume esta forma: 

CLEAR 100,i.HEOOO 

Ele limita o topo da membria RAM em 
57 344, deixando 8 192 bytes livres para os 
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programas de cddigo de mdqulna, 

Nestes micros o comando CLEAR 
tem uma outra fungao separada e nao 
relactonada: a atribuicao de espaco de 
membria para as variaveis alfanumdri- 
cas. O primeiro niimefo do comando 
CLEAR fornece o espaijo de cordSes 
que deve ser reservado para o progra- 
ma em BASIC. O computador guarda 
aut-omaticamente 100 bytes abaixo do 
enderei^o maximo de mem6ria (RAM- 
TOP) para as variaveis alfanumericas 
quando a mdquina e ligada. Se voce dei- 
xar o RANITOP artificialmente mais 
baixo, devera destinar tamb^m uma 
quantidade similar — 100 bytes — abai- 
xo dele, para os strings. 



420 A$-lNKEy$:IF A$-"" THEN 420 

430 P-0:rF AS-"S" THEN P--2 

440 PRINT *P,SA; 

450 FOR M"0 TO 7 

460 PBINT IP," ";RIGHTS(" '+HEX 

S(PEEK(SA+M>) ,2) ; 

470 NEXT:PHINT#P 

480 SA'SA+8 

490 AS-INKEYS:IF AS-'" THEN 490 

500 IF A$-CHBStl3) THEN RETURN 

510 GOTO 44 

600 INPUT 'ENDEBECO INICIAL "sS 

A 

610 INPUT "NlfllERO DE BYTES "sN 

620 LINE INPUT "NOME DO ARQUIUO 

" ; N$ 
63 CSAVEM NS , SA , SA+N . SA 
640 RETURN 



420 NEXT M 

440 LET SA-SA+8 

445 PRINT 1ST: POKE 23692.0 

450 LET h$-INKEY$: IF AS-"" 

THEN GOTO 450 

460 IF A$-CHR$ 13 THEN RETURN 

470 GOTO 330 

500 INPUT "ENDERECb INICIAL? 

;SA 

SIO INPUT "NUMEHO DE BXTES? ' 

N 

520 INPUT "NOME DO ARQUIVO? " 

LINE N$ 

530 IF LEN NS<1 OH LEW NS>10 

THEN GOTO 520 

540 SAVE NSCODE SA.N 

550 RETURN 



\ 



^ 



m PROGRAMA MONITOR 



O programa seguinte e um monitor 
simples para auxilio a programa^ao em 
linguagem de maquina. Ele permite que 
voce digite codigos de maquina na mem6- 
ria do computador, guarde programas de 
c6digo de maquina em fita e examine-os 
na memdria. Antes deentrar o programa, 
e necessario dar o comando CLEAR apro- 
priado. Feito isso, o programa e entrado 
e rodado; em seguida, o computador pe- 
de que voce forne^a um endere^o inicial, 
que deveri ser o da memdria, acima do es- 
tabeieddo em CLEAR. Lembre-se de que 
o comando CLEAR especifica o ultimo 
enderefo de BASIC, e o seu programa de 
codigo de m^qui na dever^ comefar na io- 
ca<;ao acima dele. 

Agora digite o monitor de codigo de 
miquina para o seu computador. 

a 

10 CLS 

20 PRINT €193, "1; 

IGO DE MAQUINA 

30 PBINT §257, "2: 

RIA - 

40 PRINT «321, "3: 

NA FITA " 

50 A$-1NKEYS;IF AS<' 

' THEM GOTO 50 

60 CLS 

70 ON VAL(AS) GOSUB 200,400,600 

80 GOTO 10 

200 INPUT "ENDEBECO INICIAL "iS 

A 

210 LINE INPUT D$ 

220 IF DS-"" THEN GOTO 210 

230 IF LEFTSfDS. 1J='I" TTBEN RE 

TURN 

240 SS-LEFTS{DS.2> 

250 POKE SApVALClB'^-SS) 

260 PRINT SA,LEFTS(DS,2> 

270 DS-MID$(DS.3) 

280 SA-SA+1 : GOTO 220 

400 INPUT "ENDEHECO INICIAL ' ; SA 

410 PHINT-SAIDA PARA IMPRESSORA 



ENTHAH EM COD 



EXAMINAR MEMO 



GRAVAR BYTES 



OR A$>"3 



5 POKE 23658,3 

10 PRINT INVERSE 1;AT 5,6;" 

MONITOR TK 90 X •* 

15 PRINT AT 8,1;"1: ENTHAH EM 
CODIGO DE MAQUINA" 

20 PRINT AT 10,1; "2: EXAMINAR 
MEMDRIA" 

30 PRINT AT 12,1; "3: GRAVAH P 

YTES EM FITA" 

70 LET A$-INKEYS: IF A$<'1" 

OR AS>"3" THEN GOTO 70 

80 CLS ; GOSUB 100+200* {VAL A 

$-1) 

90 RUN 
100 INPUT "ENDEBECO INICIAL? " 
;SA 

110 INPUT LINE DS 
120 IF D$-"" THEN GOTO 110 
125 IF DSd)-"*" THEN RETURN 
127 IF LEN D$-l THEN GOTO 110 
130 LET SS-DS(i TO 2) 
140 FOR N=l TO 2 
150 IF SS(N)>"9" THEN LET SS ( 
N) -CHR$ (CODE S$(N)-73 
155 IF SS(N)>"?" OR SS(N)<"0" 
THEN PBINT FLASH 1;"CARACTER 
E INVALIDO": GOTO 110 
160 NEXT N 

170 POKE SA,(CODE S$Cl)-48)*16 
+CODE S$(2)-48 
180 PRINT SA,D$( TO 2) 
190 LET DS-DS (3 TO ) 
200 LET SA-SA+1 
210 GOTO 120 

300 INPUT "ENDEHECO INICIAL? " 
:SA 

310 INPUT "IMPRESSORA (S/N) ? " 
; LINE P$ 

320 LET ST-2: IF PS-'S" THEN 
LET ST-3 

330 PRINT fSTiSA; 
340 FOR H-0 TO 7 
350 LET H3-"##' 

360 LET R$a)-CHH$ {INT (PEEK 
(SA^«)/16)+48) 

3 70 LET HSC2)-CHH$ t48+PEEK <S 
A+M)-16*(C0DE H$Cl)-48)) 
360 FOB N-1 TO 2 
390 IF HS{N)>"9" THEN LET H$ ( 
N)-CHR5 (CODE H3tN)+7} 
400 NEXT N 
410 PRINT fSTfTAB 7+3*M;HSi 



Antes de executar este programa, vo- 
ce deve digitar uma linha 1 contendo um 
REM seguido do niimero apropriado de 
caracteres, de modo a recebcr seu pro- 
grama em codigo de miquina (um ca- 
ractere por byte de programa). 

10 PRINT AT 4, 9; "MONITOR TKSS' 

15 PRINT AT 8,4 ;'l " PHOGRAMAR 
EH CODIGO" 

20 PRINT AT 10.4; "2 - EXAMINAR 
A MEMORIA" 

50 LET AS-INKEYS 

60 IF AS<"1" OB AS>"2" THEN 

GOTO 50 

70 CLS 

80 GOSUB 100+200* (VAL AS-1) 

85 CLS 

90 RUN 
100 PRINT AT 21,0 ; "ENDEHECO INI 
CIAL?" 

105 INPUT SA 
110 INPUT DS 

120 IF DS-"" THEN GOTO 110 
125 IF, DSC1)-"S" THEN RETURN 
130 LET SS-DS(1 TO 2} 
135 SCROLL 
140 FOB N-1 TO 2 
150 IF SSCNJC'O" OR S${N)>'*F" 
THEN PBINT "CARACTEB INVALIDO" 
155 IF SSCNK'O" OB SS(N)>"F" 
THEN GOTO 110 
160 NEXT N 

170 POKE SA. (CODE S$ (1) -28) *16+ 
CODE S$ (2)-2e 
175 SCROLL 

leO PRINT SA.DSt TO 2) 
190 LET DS-DS(3 TO ) 
195 IF LEN DS-1 THEN GOTO 110 
200 LET SA-SA+1 
210 GOTO 120 

300 PRINT AT 2 1 . ; " ENDERECO INI 
CIAL?" 

310 INPUT SA 
320 SCROLL 
330 PRINT SA: 
340 FOR M-0 TO 7 
350 LET HS-" " 
360 LET H$(1}-CHR3 (INT (PEEK t ' 
SA+M)/16)+26) 
370 LET HS(2)-CHR$ (28+PEEK (SA 



r 



+MJ-16«(CODE HSCl)-28)) 

400 PRINT TAB 7+3*M;H$: 

410 NEXT M 

440 LET SA-SA+e 

450 LET A3-INKEY$ 

460 IF AS-"" THEN GOTO 450 

470 IF A$-CHR$ 118 THEN RETURN 

480 GOTO 320 
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10 CLS 

20 LOCATE 8, 7: PRINT "1 - Progra 

mar em c<Jdigo" 

30 LOCATE 6,9: PRINT '2 - Examin 

ar memdria" 

40 LOCATE 8,11: PRINT "3 - Grava 

r bytes na fita" 

50 AS-lNKEy$:IF AS-"" THEN GOTO 

50 
60 CLS 

70 ON VAL(A$5 GOEUB 200,400,600 
80 GOTO 10 

200 INPUT "Enderego inicial"iSA 
210 LINE INPUT DS 
220 IF DS-"" THEN GOTO 210 
230 IF LEFTSCDSrI) -"»" THEM HET 
URN 

240 S$-LEFTS{DS,2) 
250 POKE SA.VAL(tHO+SS) 
260 PRINT EA,LEFT${D$,2) 
270 D3-MIDS(D$, 3) 
260 ,5A-SA+1 :GOTO 220 
400 INPUT "Endereco inicial";SA 
410 PRINT "Safda para impresaor 
a ? {S/N)" 

420 A$-INKEV$:IF AS-"" THEN 420 
430 IF AS-"S" OR AS-"3" THEN OP 
EN "LPT:- FOR OUTPUT AS #1 ELSE 

OPEN "CRT: "FOB OUTPUT AS 11 
440 PRINT ll.SA: 
450 FOR H-0 TO 7 
460 PRINT |1.' "; BIGHTS <" "+HEX 

(PEEK tSA+M) ) ,2) ; 

70 NEXTiPfllNT ♦!, 
480 SA=SA+1 

490 A$-INKEyS:IF AS-"" THEN 490 
500 IF A$-CHRStl3) THEN CLOSE ♦ 
1: RETURN 
510 GOTO 440 

600 INPUT "Endereco Inicial ";S 
A 

610 INPUT "NUmero de bytes "jN 
620 LINE INPUT "Nome do arquivo 

" ; NS 
630 XS-"CAS:"+NS 
640 BSAVE XS,SA,SA+N,SA 
650 RETURN 



COMO MONITOR FUNCIONA 



Quando voce rodar o programa apro- 
priado a sua maquina, ele exibira um 
menu onde aparecem as tres opgoes hi- 
sicas de irabalho com o monitor: "En- 
trar C6digo de Maquina", "Examinar 
a Memoria" ou — exceto no ZX-81 — 
"Armazenar Bytes na Fita". 

Se voce quiser entrar c6digo de ma- 
quina, devera pressionar a tecla 1 . De- 
pois de fornecer um endere^o inicia! pa- 



ra a maquina e pressionar < ENTER > 
ou < RETURN > , voce dcve comecar a 
digitar os c6digos de maquina na forma 
de valores hexadeciraais de dois digitos 
cada. Cada valor deve ser separado do 
seguinte por um espapo em branco. 
Antes de pressionar < ENTER > ou 

< RETURN > voce pode entrar tantos 
paresiquantos'desejar. Mase melhor di- 
gitar uma linha por vez e checar rigoro- 
samente os digitos antes de pressionar 

< ENTER > . E muito mais facil editi- 
los enquanto ales ainda estio na tela do 
que quando estiverem na memoria. 

Voc^ notara que as versoes do progra- 
ma para o Spectrum e para o ZX-81 ira- 
duzem seus mimeros hexa para decimais, 
antes de colocS-los na memoria. Isto de- 
ve ser feito, como expllcamos antes, por- 
que POKE ^ uma declaraclo do BA- 
SIC, e o BASIC nestas duas maquinas 
nao aceita niimeros hexa. Mesmo assim, 
e melhor voce pensar apenas em hexa 
pois isso Ihe dara uma melhor percep<;ao 
de como o compiitador funciona. 

Voce deve finalizar os seus progra- 
mas de codigo dc maquina com um si- 
nal sustenido # ou, no ZX-81, um si- 
nal de d61ar. Isso trara o menu dc volta 
para a tela. 

Se voce selecionar a opgao 2 para 
examinar a memoria, o programa pedi- 
ra novamente um enderego inicial — 
desta vez e o inicio da Area de mem6ria 
que precisa ser observada. Para exami- 
nar todo o seu programa em codigo de 
maquina, esse enderego inicial deverd ser 
o mesmo que o enderego inicial que vo- 
ce forneceu anteriormente. 

A seguir, exceto no ZX-81 , serd pergun- 
tado se voce quer imprimir uma copia de- 
fmitiva do programa em cddigo de maqui- 
na na sua impressora. Se voce nao quiser 
fazer isso, e pressionar N, o programa im- 
primir^ enderego inicial e os conteiidos 
dessa locagao e das sete locagSes de mem6- 
ria subseqiientes em uma linha na tela. 

Se, ao contririo, voce responder a 
questao acima pressionando qualquer 
tecia do teclado — exceto < ENTER > 
ou < RETURN > — , o enderego origi- 
nal serd impresso, junro com seus con- 
teiidos e OS conieiidos dos sete bjtes sub- 
seqiientes. Assim, seguindo esse meto- 
do, voc§ podera imprimir todo o seu 
programa de c6digo de maquina. 

Se vocS locaiizar um erro e quiser 
corrigi-lo, pressione < ENTER > ou 
<RETURN>, e o programa retorna- 
ra ao menu. Pressione 1 para entrar o 
c6digo de mdquina, e o computador pe- 
dird novamente um enderego inicial. 
Desta vez, fornega o enderego do byte 
que estiver errado. Se o erro atingir to- 
da uma serie, forneca apenas o endere- 
go do primeiro byte da serie; em segui- 



da, entre os bytes corretos. 

Outro modo de fazer corre?6es, 
quando existe apenas um erro. consiste 
em acionar a tecla < BREAK > (nos mi- 
cros da linha Sinclair e TRS-Color), ou 
as teclas < CONTROL > <STOP> 
(no MSX), para interromper o progra- 
ma monitor, e usar o POKE de modo 
direto, para corrigir o conteiido da lo- 
cagSo apropriada. Lembre-se de que no 
Spectrum e no ZX-81 voce deve usar o 
POKE com um mimero decimal. Assim 
que terminar a corregao, pressione 
< ENTER > ou < RETURN > e exami- 
ne mais uma vez a memoria para ter cer- 
leza de que dessa vez voce acertou. 



GUARDE SUAS ROTINAS 



Se voce quiser conservar o monitor 
de codigo de maquina, devera guard^- 
lo em uma fita separado deseus progra- 
mas de codigo de maquina, da maneira 
usual. A opgao "Armazenar Bytes em 
Fita" no menu do programa monitor 
serve apenas para guardar as rotinas de 
c6digo de maquina que foram entradas 
com o monitor. A unica excegao e para 
o ZX-81. no qual voce deve guardar suas 
rotinas de c6digo de maquina junto com 
o programa monitor. 

Nas outras mdquinas, se voce pres- 
sionar 3, o programa pedira mais uma 
vez um enderefo inicial. Este devera ser 
normalmente o enderego inicial da reti- 
na de maquina que voce acabou de en- 
trar, embora qualquer parte da memo- 
ria possa ser guardada por meio da uti- 
lizagao de um enderego diferente. 

As versoes deste programa para o S - 
pectrum, o TRS-Color e o MS.X pedi- 
rao entao a voce os niimeros de bytes 
que a sua rotina em codigo de miquina 
ocupa. Voce pode calcular isso peia con- 
tagem dos pares de digitos hexas que fo- 
ram entrados anteriormente. Cada par 
e um byte. Em seguida, voce deve en- 
trar um nome para a rotina — assim, o 
seu computador sera capaz de idenlifica- 
lo quando voce quiser carrega-lo. A ro- 
tina sera gravada pressionando-se as te- 
clas <PLAY> e < RECORD > no 
gravador, antes de acionar a lecla 
<ENTER> do computador. Quando 
a gravagao se completar, aparecera o 
menu na tela, novamente. 



COMO CARR£GAR CODIGO DE MAQUINA 



Com Spectrum, o TRS-Color e o 
MSX a rotina de c6digo de miquina e 
carregada de modo normal (por exem- 
plo, no MSX deve-se utilizar o coman- h 
do BLOAD "CASrROTINA", onde f 
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ROTINA 6 nomc dado 4 rotina quan- 
do csta foi gravada). Contudo, se o mo- 
nitor na mem6ria da nnaquina cstivcr ro- 
dando, vocS deveri ajiles disso pressio- 
nar < BREAK > ou < CONTROL > 
< STOP > , para interrompS-lo. 

Lembre-sc de repctir CLEAR para 
proteger uma irca de raem6ria para o 
programa em c6digo de m^quina. caso 
voci tenha desligado a maquina, ou al- 
lerado a posi^ao do RAMTOP desde 
que digitou. 

Com ZX-81. seu programa em c6- 
digo de maquina scrS automaticamente 
carregado da fita junto com o moniJor. 



ROLE PARA TRAS 



Para exemplificar o uso do moniior, 
feme o programa tistado abaixo. Com 
«ce?ao dos micros da linha MSX, esse 
programa roia a cela para trds — isto i, 
de cima para baixo e nio o contrdrio. 
Para o MSX, a rotina apresentada ser- 
ve para preencher a tela com traces co- 
loridos (e o mesmo programa apresen- 
tado na primeira liglo desta serie). En- 
tre a rotina adequada a sua maquina, 
uiiiizando o programa monitor. Termi- 
ne digiiando um sinal #. 
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RODE OS PROGRAMAS 



Uma vez digitado o programa em c6- 
digo de maquina e verifieados os possf- 
veis erros, chcgou o mornento de rod^- 
lo. Lembre-s« que elc itlo reagira ao co- 
mando RUN normal. Para rodar pro- 
gramas em c6digo de maquina, s3o ne- 
cessarias instru(;des e^peciais que variam 
de computador para computador. 



O Spectrum e o ZX-81 utilizam a fun- 
gao USR (abreviatura de USer Routine) 
do BASIC, seguida de um endere^o ini- 
cial do programa em codigo de maqui- 
na. O USR faz reiomar o valor decimal 
contido no registro interne BC do mi- 
croprocessador, uma vez que se tenha 
completado a cxecufao da rotina cm c6- 
digo de mdquina. Isto nao c muito uti) 
para vocfi, no momento, mas significa 
que se esse retorno rao ocorrer normal- 
menie o programa em codigo de maqui- 
na nao devc tcr rodado corretamcnte, 

O USR nao e um comando, mas sim 
uma fun^ao, E a estrutura do BASIC do 
Sinclair exige que uma linha executada 
seja iniciada com um comando. Assim, 
o USR deve ser prefaciado por uma pa- 
lavra de comando. Se vocI utilizou os 
enderegos iniciais sugeridos neste anigo, 
para o Spectrum, fa^a: 

RANDOMIZE USR 32000 

e no ZX-81 utilize: 

RAND USR 16514 

(observe que a Iccia RAND no Spectrum 
fornece RANDOMIZE na tela. No 
ZX-81 a tecla RAMD fomcce RAND na 
tela). Em si prdprio, o comando nao tern 
sentido, mas ele da resuiiado quando 
voce rodar a rotina em codigo de md- 
quina. Lcmbre-se de que a linha acima 
e apenas um cxcmpto. Troque o uume- 
ro que vem depois de USR pclo endere- 
^o decimal inicial de seu programa, t"or- 
necido para o monitor quando digitado- 
Na vcrdade, qualquer comando BASIC 
pode ser utilizado para prefaciar USR, Per 
cxemplo, o PRINT USR 32000, embo- 
ra este, na verdade, imprima o valor do 
par de registros BC na lela. o isso sem- 
pre seja desejivel. 

RANDOMIZE USR 32000 ou 
RAND USR 16514) e mais utilizado 
porque evita ereitos colaterais tndeseja- 
dos. Mas deveri ser cvitado se voce es- 
tiver utillzando niimeros aleat6rios em 
qualquer parte do programa, pois ele ira 
acionar o gerador de niimeros aleat6rios 
novamence, Entan, utilize no Spectrum: 



LET L - USR 32000 

e no ZX-81 empregue: 



LET L 



USR 16514 



Isso coloca o valor dos registros BC 
na varidvcl L, quando o programa em^ 
cddigo de mdquina termina de rodar — ■ 
isso pode nao ter nenliuma utilidade pa- 
ra o seu programa, mas no Sinclair os 
comandos LET, L, = c USR estao to- 
dos nas mesmas teclas, o que simplifica 
o trabalho de digit ar. 



iru- T 



OTRS-tiMui lambem possui ins 
goes para executar programas em codi- 
go de maquina. EXEC ^ um desses 
comandos; deve set seguido pelo endere- 
go inicial da rotina em c6digo de maqui- 
na que voce quiser rodar. Por cxemplo: 

EXEC 24000 

rodara a rotina do codigo de md- 
quina que se inicia na locagao de memo- 
ria em 24000 decimal, Existe tambem a — 
fungao USR, que accita paramctros ou ■ 
variaveis para serem passados entre o ™ 
programa BASIC e a rotina em codigo 
de maquina. Antes de comci,'ar, voce 
precisa definir onde devc se iniciar a ro- 
tina em c6digo de maquina. Isso deve 
ser feito por mcio da instru<;ao DE- 
FUSR, seguida de ura numero de a 9. 
Assim, voce pode definir ate 10 retinas 
USR diferemes dcntro dc um programa 
em BASIC. Quando DEFUSR nao e se- 
guido de um mimero o computador es- 
tabelece que seu significado equivale a 
DEFUSR 0. A sinlaxe normal em um 
programa BASIC e: 



I 



I 



10 DEFUSRl 



24000 



Isso define a rotina USR numero 1, 
como se iniciando na loca^ao 24O0O de- 
cimal da mem6ria. 

A funcao que realmcnte execuia o c6- 
digo de mdquina € USR. Devido a um 
defeito na ROM, para chamar uma ro- 
tina de cbdigo de maquina do TRS- 
Cotor, USR devc ser seguida de e o nu- 
mero da rotina que vocS jd definiu. 

A sintaxe normal i: 

P * USROKC) ou PRINT USROKQ) 

A fungao USR copia o vaior da va- 
ridvel no acumuiador interno do mi- 
croprocessador. Assim, ela pode ser 
captada e usada pela rotina em c6digo 
de mdquina, se for nccessdrio. 

Neste cxemplo, quando a rotina em 
c6cligo de mdquina termina sua execugao, 
OS conteudos do acumuiador recomam 
ao programa BASIC, como varidvel P. 

Como em outros casos, variaveis de 
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string tamb^m podem ser transmitidas 
entre o programa cm BASIC e progra- 
mas em c6digo de maquina. 




'ara executar programas em c6dJgo 
de maquina, o MSX utiliza a fun^ao do 
BASIC chamada USR (abreviatura do 
USer Routine), seguida de um endereco 
uiicial do programa de c6digo de maqui- 
na. A USR retoma o valor decimal con- 
tido em um par de registros internos do 
micToprocessador, uma vez que se tenha 
completado a execu^io da rotina em c6- 
digo de maquina. Isto nao e mutto util 
para voce, no momento, mas, se este re- 
tomo nao ocorrer normalmente, signifi- 
ca que o programa em codigo de mdqui- 
na nao deve ter rodado corretamente. 

A funt^ao USR aceita tambetn para- 
metres ou variaveis para serem passa- 
dos entre o programa BASIC e a rotina 
em cddigo de maquina. 

Como ja foi dito anteriormente, 
USR e uma f un^o e nao um coman- 
do. Ora. a estrutura do BASIC do MSX 
impoe que ela esteja contida numa li- 
nha iniciada com um comando. Pode- 
mos utitizar entao algo do genero: 

P = USR(Q) ou PRlNt USR{Q> 

A Tun^ao USR copia o valor da va- 
riavel Q no acumuSador interno do mi- 
croprocessador. Assim, ele pode ser cap- 
tado e usado peia rotina em codigo de 
maquina, em case de necessidade. 

Tal como nos exemplos jd viscos, quan- 



do a rotina em c6digo de miquina termi- 
na sua execu(;ao, os conteudos do acum u- 
lador retornam ao programa BASIC, co- 
mo a varidvel P. Para a rotina apresenta- 
da neste programa, e necessario preparar 
a tela grafica antes de charaS-la, pois ela 
nao fax isso internamente. Para executa- 
la, faga o seguinte programa e rode-o com 

comando RUN: 

1 SCREEN 2 

2 PS£T(0,O) 

3 A=USH(B) 

4 Goto 4 

Como foi reservado o espafo em 
RAM acima de &HEOOO, usamos o en- 
derego inicial - 8191 ou §HE001, era he- 
xadecimal, de modo a iniciar o USR. O 



1 




numero em decimal i negativo pois i o 
complemento do numero decimal que 
normalmente apareceria como negative, 
Uma observaijao final para a rotina 
de exemplo para o MSX : ela usa a tela 
grafica (SCREEN I); por isso, se o lei- 
tor acidenialmente rodar a rotina sem 
programa dado acima (que retorna 
as coisas ao normal), devera digitar 
SCREEN ft e pressionar a tecla 
< RETURN > depois. 




•Sij 





Todos aqueles Xs e Ys esquisitos nos 
programas tornam-se simples quando 
se entende realmente sua fungao. 
Aprenda como trabaltiar com vari^veis 
em seus prdprios programas. 



=?^= 



Quando voce quiser armazenar uma 
informagao qualquer na mem6ria do 
computador, serd necessario, identifici- 
la; do contririo, o computador serd ca- 
paz de descobrir onde estS a informa- 
?ao no momento em que vocS precisar 
dela novamente. Muitas vezes a infor- 
ma?ao que se pretende armazenar con* 
siste em um niiinero cujo valor se mo- 
difica sempre que o computador execu- 
ta uma repeti^ao (lago) em uma se^ao 
do programa. Abaixo temos um exem- 
plo de uma situai;ao desse tipo: 



QEiSS 


10 


LET X-0 


20 


LET X-X+1 


30 


PRINT X:" "; 


40 


FOR T-0 TO 10 


50 


NEXT T 


60 


GOTO 20 



[iMim 



f 



A iinha 60 cria o lai;o, fazendo com 
que o programa se repita indefinidamen- 
te. O niimero representado por X (ori- 
ginalmente zerado pela Iinha 10} atinge 
a Iinha 20 e e aumentado em 1 . O X e 
chamado de variavel numerica, pois ar- 
mazena um mjmero. 

Para entender melhor como funciona 
uma variavel numdrica, imaginemos que 
a memdria do computador e constitui- 
da por uma s6rie de caixas ou compart i- 
mentos, Cada caixa recebe um nome. 
Num computador simples, esses nomes 
poderSo ser letras do aifabeto. Para ar- 
mazenar um niimero na memoria, bas- 
tard atribuir esse valor a uma das caixas; 

LET C - 25 

Essa instrugao armazena o valor 25 
na variavel C. Nem todos os computa- 
dores exigem o emprego do comando 
LET, mas e uma boa id^ia inclui-lo ate 
que voce esteja experiente. 

Uma vez armazenado, esse valor po- 
de ser utihzado por outras declaracoes 
em outros calculos, etc. Voce pode di- 
gitar, por exemplo: 

PRINT C * 4 

ou: 
PRINT C/5 

Essas declara?6es deverao fornecer as 
respostas 100 e 5 respectivamente, se 
coniinuarmos com o valor definido pa- 



ra C, aciraa. Mas se voce digilar: 

PRINT c 

veri que o valor de C permanece inal- 
terado. Para modificar o valor de C, 
aumentando-o para 30, por exemplo, di- 
gite diretamente: 

LET C - 30 

ou, ainda: 

LET c - c + 5 

Note que a Iinha de comando acima 
nao faz semido do ponto de vista mate- 
mdtico. Emretanfo, o comando LET 
nao deve ser entendido como uma equa- 
cao, apesar do sinal de igualdade, A de- 
claragio acima significa apenas: "tome 
c valor numerico armazenado na varid- 
vel C, some 5 a ele, e coloque de volta 
resultado na variivel C", O que acon- 
tece i que o valor anterior presente em 
C (no caso, 25) e apagado quando ar- 
mazenamos um novo vaior na variavel. 



OS NOMES DAS VARIAVEIS 



A combinacao de caractcres permiti- 
dos peio BASIC para se dar nomes as 
variiveis numericas difere de computa- 
dor para computador. As principais re- 
gras sao mostradas no box na pigina 99. 

Mas uma coisa que nenhum compu- 
tador aceitari e um nome de varidvel que 
se inicie por um niimero. Por exemplo; 

LET 7 = 14 

nao tem sentido. Um nome de varidvel 
pode incluir mimeros (exemplos: VAR7, 
A1985, etc.), mas o primeiro caractere 
precisa ser sempre uma letra. Alem dis- 
so, nao e permitido utilizar como nome 
de variiveis palavras que representem 
comandos, como TO, THEN, OR ou 
AND, etc. Alguns micros nao aceitam 
que essas palavras-chaves fagam parte 
do nome da varidvel: a varidvel BEND, 
nao seria aceita pelo interpretador BA- 
SIC, pois inclui a expressao END. 



VARIAVEIS EM AQAO 



A maiori^ dos programas que voce 
escrever utilizara diversas variaveis. Eis 




um programa curto que simula a at^ao 
de uma bomba "universal" de combus- 
tivel (gasolina, alcool, etc.) e que fun- 
ciona de maneira muito interessante: 



DQ 






10 


LET LITROS=0 






20 


LET CRUZ=0 






30 


CLSr PRINT 






40 


PRINT - ESCOLHA 


COMBUSTIVE 


L: 


aLCOOI 
dIESEL - 




gASOLINA 


50 


INPUT AS 






60 


IF A$-"A" THEN 


QTY 


-0.3 


70 


IF AS-"G" THEN 


QTY 


= 0.2 


80 


IF AS-'D" THEN 


QTY 


-0.4 


90 


CLS 






100 PRINT §130, "COMBUSTIVEL "; 


AS 









1 
1 
1 
1 
1 

+ 

1 
1 

1 

R' 
2 



r* 
T 
b 

a: 




110 PRINT 6199,"LITR0S" 

120 PRINT e256,"PRECO A PAGAR" 

130 LET K-PEEK(344) 

140 IF K-251 THEN CLS;G0TO 10 

150 IF K»253 THEN LET CHLt2-=CHUZ 

+1:LET LITROS-INT((LITR0S+QTY)* 

lOj/lO 

160 PRINT #206,LITROS 

170 PRINT §270,CHU2i"MIL CRUZEI 

ROS" 

200 GOTO 130 

Aten?ao: o programa listado acima 
rodar^ apenas nos compati'veis com o 
TRS-Color, Para poder executd-lo tam- 
b^m em micros da linha TRS-80, faga 
as seguintes modifica^oes: 

100 PRINT §258, "COMBUSTIVEL 

";A5 
110 PRINT 6365, "LITHOS" 



120 PRINT e612,"PRECO A PAGAR" 
160 PRINT §396,LITH0S; 
170 PRINT 6526. CRUZ; 'MIL CRU- 
ZEIROS"; 



10 LET litrog-0 

20 LET cruz-0 

40 PRINT ' Eacolha o coBibuati 

ve 1 ; " 

45 PRINT "AdcooD G(asolin 

a) D( lesel) " 

50 INPUT AS 

60 IF A$-"a" THEN LET qty=l/ 

3 

70 IF A$-"g" THEN LET qty-1 

5 

BO IF A3-"d" THEN LET qty-1/ 

3 



90 CLS 
100 IF INKEYS="n" THEN LET cr 
uz-cruz+1; LET litros-INT ((U 
tro3+qty) *10) /lO 



105 PRINT 
";AS 



AT 6, 2: 'COMBUSTIVEL 



110 
120 
130 
AR" 
140 



PRINT AT 9,7 ; 
PRINT AT 9,15 ; 
PRINT AT 12,0; 



"LITHOS" 
1 1 troa; 
"PRECO A 



PAG 



PRINT AT 12,15 
cruzeiros" 
150 IF lNKEV$-"f 
GOTO 10 
200 GOTO 100 



5 CLS 
10 LET LITROS- 



cruz ; " mxl 



THEN CLS 



^ 



20 LET CRU2-0 

40 PRINT " ESCOLHA O COMBUSTIV 

EL: " 

45 PHINT "A<LCOOL} G(ASOLIN 

A) D(IESEL)" 

50 INPUT A5 

60 IF AS-"*" THEN LET QTY-1/3 

70 IF AS-"G" THEN LET QTY-1/5 

80 IF AS-'D" THEN LET QTY-1/3 

90 CLS 

100 IF INKEYS<>"N" THEN GOTO 10 
5 

101 LET CHUZ-CHUZ+1 

102 LET LITROS=LITfiOE+QTY 

105 PRINT AT 6,2 ; "COMBUSTIVEL 

";AS 

110 PHINT AT 9,7;"LITROS" 

IZO PRINT AT 9.15;LITR0S; 

130 PRINT AT 12,0;"PRECO A PAGA 

R" 

140 PRINT AT 12,15;CRUZ:" MIL C 

HUZEIROS" 

150 IF INKEYS-'F" THEN RUN 

200 GOTO 100 



fffi 



5 REM *"*TECLE A BARRA DE ESPAC 

OS PARA LIGAR A BOMBA E D PARA 

DESLIGA-LA*** 

10 LET LITROS-0 

20 LET CHU2EIROS-0 

30 CLS: LOCATE 10 : PHINT"BOMBA DE 

COMBUETrVEL" 
40 PRINT:PRINT;PRINT"E3colha o 
aeu combuatlvel" 

50 LOCATE 10,5: PRINT"1- alcool" 
60 LOCATE a0.6:PRINT''2- gaaolin 
a" 

70 LOCATE 10,7 :PRINT"3- diesel" 
80 LOCATE 15.12:INPUT''Sua op<;ao 
: ";C 

90 IF C-1 THEN P-1/3.1 
iOO IF C'-Z THEN P~l/4.7 
110 IF C-3 THEN P-a/3, 5 
120 CLS 

130 LOCATE lD,5:PHINT"Coinbustfv 
el ";C 

140 LOCATE 10,10:PHINT''Prec;o a 
pagar =>" 
150 LOCATE 17,12:PRINT"Litro3-> 

160 IN$-INKEy$:IF IN$-CHRS{68) 

THEN END 

165 IF INS<>CHaS(32)THEN 160 

170 CR-CR+IOOO : LI-LI+P 

180 LOCATE 26, 10: PRINT CR 

190 LOCATE 26, 12: PRINT LI 

200 GOTO 160 



a][S] 



5 REM **TECLE A BARRA DE ESPA 
COS PARA RODAB A BOMBA E F PARA 

TERMINAR 
10 LET LITROS - 
20 LET CRUZEIROS ■ 
30 HOME : HTAB 10: 
A DE COMBUSTIVEL" 
40 PRINT : PRINT 
u corabuat ivel : " 




PRINT 




70 

80 

cao 

90 

100 

110 

120 

130 



50 PRINT 
LCOOL" 
60 HTAB 
HTAB 
VTAB 
->'';C 
IF C 
IF C 
IF C 
HOME 
VTAB 
mbuat ivel 
140 VTAS 
reco a pa 
150 PRIN 
troa ">" 
160 GET 
0) THEN 
165 IF I 
N 160 
170 CR - 
ISO VTAB 
190 VTAB 
NT (LI * 
200 GOTO 



: HTAB 5: PRINT "1- A 



5: PRINT "2 
5: PRINT "3 
15: HTAB 10 

- 1 THEN P 
= 2 THEN P 
- 3 THEN P 

5 ; HTAB 1 

" ;C 

10: HTAB 1 
gar ->" 
T : HTAB 17 

INS: IF IN5 

END 

NS < > CH 

CH + lOOOiL 
10: HTAB 2 
12: HTAB 2 

100 + .5) / 
160 



- GASOLINA" 

- DIESEL" 
: INPUT "Op 

-1/3.1 
=1/4.7 

- 1 / 3.5 

: PRINT "Co 
0: PRINT "P 
: PRINT "Ll 

- CHRS (7 

RS t32) THE 

I - LI + P 

6: PRINT CR 

6: PRINT I 
10 



•BOMB 



'Eseolha o ae 



Vale a pena experimentar esse pro- 
grama de muitas maneiras, ate entender 
come ele funciona, pois h& nele urn con- 
junto razodvel de variAveis, 

A fun^ao de algumas delas e bastan- 
te evidenle: a variavel A, por exempio, 
seleciona o tipo de combustivel, atrav^s 
de um numero (1 , 2 ou 3) e deterniina, 
nas linhas 60 a 80, qua] e a frat^ao de li- 
tro do combustivel escolhido que vale 
mil cruzados. 

A tecla N aciona a bomba que mede 
o fluxo de combustivel, O programa 
comefa entao a incrementar o numero 



de litres de combustivel (variavel 
CRUZ, inicialmente zerada na linha 
20, bem como a variavel LITROS). 
Enquanto a tecla N estiver sendo pres- 
sionada, o programa conlinuara avan- 
gando; ao atingir a linha 200, ele re- 
tornard a linha 130 (100 no Spectrum), 
e nianter^ o medidor funcionando. Pa- 
ra terminar de abastecer, pressione a 
letra F. 

A presen^a na tela de frai^oes deci- 
mals com muitos digitos revela a impre- 
cisao propria do computador, quando 
e feita a conversao de numeros binaries 
internos, para decimals comuns. 



VARlAVEIS DE CONTROLE 



Assim como sao utilizadas em decla- 
rafoes LET, as variaveis tambem podem 
aparecer em lagos FOR... NEXT, como 
voce '}i deve ter percebido, Nesie caso, 
a variavel que e alterada a cada repeti- 
fio do lago e chamada de variavel de 
con I role. 

Em alguns computadores, os carac- 
teres empregados para dar nnme as va- 
riaveisdecontrolenao podem sera plica- 
dos a variaveis numericas (veja quadro). 
Nos micros da linha Sinclair, por exem- 
plo, voce pode digttar: 

LET SCORE - 
LET RECOHDE - 

para varidveis numericas, mas nao po- 
de utilizar nomes como estes em inslru- 
coes FOR. ..NEXT, tais como em: 



FOR TEMPO 



1 TO 99999 



Ao inv^ disso, vcx:e i obrigado a em- 
pregar a varidvel de controle com uma 
linica letra, como per exemplo T. Os ou- 
iros computadores (linhas TRS, Apple 
e MSX) nao tem essa exigencia. 



VARlAVEIS ALFANUM^RICAS 



E se, alem de numeros, quisermos ar- 
mazenar na tnem6ria do computador in- 
forma?des como nomes, enderegos, etc.? 

As variaveis capazes de armazenar um 
conjunto de caracteres, incluindo letras 
e numeros, sao chamadas de variaveis al- 
fanumericas, em BASIC. Outra denomi- 
nagao usada e a de cordao (ou string, em 
ingles). Para facilitar a compreensao des- 
se novo eJemento, podemos partir de 
uma compara<;ao: um cordao funciona 
como uma especie de sacola de compras. 
Voce pode enche-la com um grande nu- 
mero de artigos e manej^-la como uma 
unidade — sem ter que ocupar-se com 
cada artigo separadamente. Da mesma 
Forma, um unico nome de variavel alfa- 
numerica serve para caracterizar varias 
memorias, simultaneamente. 

Os cofdoes podem conter quase tu- 
do: letras, numeros, sinais de pontua- 
(jao, espai^o em branco, e ate mesmo ca- 
racteres graficos. Eles devem estar sem- 
pre delimitados entre aspas 

"NOMES E ENDERECOS DE 

CLIENTES". 

"POR FAVOR ENTRE AGORA SUA 
RESPOSTA" 

"24 de Janeiro" 

"01-7346710" 

"NE 135 S 181" 

O exemplo seguinte tambem e um 
cordao, embora apenas alguns compu- 
tadores, como o Spectrum, o TK-2000 
e o MSX, permitam que se possa digila- 

los desta forma diretamenie no teclado: 
(I " 

A linguagem BASIC tem recursos pa- 
ra manipular cordoes alfanumericos de 
diversas maneiras. Por exemplo, existem 
funcoes e opcrafoes para juntar dois ou 
mais cordoes uns nos outros (operacao 
de concatenagao), ou para dividi-los em 
dois ou mais subcordoes . 

Entretanto, o computador nao "en- 
tende" o que estd dentro de um cordao 
e reproduz o conteiido dcste sempre de 
forma exatamente igual, mesmo que ele 
esteja escrito em sanscrito ou alemao. 

Nao e possivel, tambem, efetuar opera- 



Varidveis: que voc3 pode e nao pode usar 



Tipo de 

varidvel 



VariSvel 



Varidvel de can- 
trole p/ 
FOfl..,NEXT 



VariSvel 
alfanum^rica 



Comprimento: 

sem limite, todas 
as letras sao re- 
conhecidas. 



NdZX-SLsiS le- 
tras maiusculas. 
No Spectrum 
maiusculas e mi - 
nusculas, mas so 
maiuscjlas sao 
reconhecidas. 



Caracteres espe- 

ciais no nome 
nio permitidos. 

Espapos no no- 
me: permitidos 
mas nao contam 



Uma leira ape- 
nas, 



Uma letra ape 
nas. segulda de 



Comprimento: 
mtiximo de 255 
caracteres. mas 
sd 3s duas pri- 
meiras letras sao 
reconhecidas. 

No TRS-Color, s6 
leiras maiuscu- 
las. No TRS-80 
h^ convers§o su- 
tomatica para 
maiusculas. 



Caracteres espe- 
ciais no name 
nSo permitidos. 

Espapas no no- 
me: reo permiti- 
dos. 

Variaval num^ri- 
ca intaira Ou de 
precisao simples. 



Como nas va- 
riaveis numiri- 
css, seguida de 
S. Qu declsrada 

pela micial em 
DEFSTR. 



ff}i 



Comprimento: 
mSximo de 255 
caracteres. mas 
s6 as duas pri- 
meiras letrass§D 
r^conhecidas. 

Conversao au- 
tom^tica para 
msiusCulas, 



Caracteres espe- 
ciais no nome 
nSo permitidos. 

Espagos no no- 
me: nao permiti- 
dos. 

Variavel num^ri- 
ca sem restri- 
coes. 



Como nas va- 
riaveis rum^ri- 
ces, seguida de 
$, ou declsrada 

pela inicial em 
DEFSTR. 



[EE] 



Comprimento: 
mSximo de 255 
caracteres, mas 
s6 as duas pri- 
mairas letras sao 
reconhecidas. 

S6 letras maius- 
culas; nao h^ 
conversao auto 
m^tica. 



Caracteres espe- 

ciais no nome 
nSo permitidos. 

Espapos no no- 
me: nao permiti- 
dos. 

Variavel num^ri- 
ca sem restri- 
Qoes. 



Como nas varia- 
veis num^ricas, 
seguida de $. 



goes matematicas com um cordao, como 1 jUic^f)^ 
somas, muitiplicagoes, divisoes e outras. 
Para provar isso, rode o programa 
abaixo: 



[ffiElWi 



10 LET AS- "POR FAVOR, DIGITE QU 

ANTOS" 

VOCE QUER" 
"HAMBliaGERES";BS 



20 



10 PRINT "2+2- "; 
20 FOR N-1 TO 40 
25 NEXT N 
30 PRINT l-+-2*2 

O conteiido do cordao (entre aspas) 
6 impresso como vocS o entrou. Na ver- 
dade, somente a linha 30 i calculada, e 
seu resultado, impresso (a linha 20 Simu- 
la tempo que o computador esti *'gas- 
tando" para pensar, antes de fornecer 
sua resposta). No MSX. no Apple e no 
TRS-80, modifique 40 para 2000, para 
um retardo razodvel de tempo. 

Mas se quiser utilizar o mesmo cor- 
dio mais de uma vez, pode economizar 
tempo de digita?ao (e espai;o em mem6- 
ria) criando um rdtulo para ele. Esse r6- 
tulo ^ chamado tamb6m de variAvel aJ- 
fanumirica. Sua extensao pode variar de 
um computador para outro (veja qua- 
dro) mas a variivel deve ser sempre se- 
guida por um sinaJ de cifrio ($). 

Eis aqui, por exemplo, um sistema au- 
tomatico de pedidos em uma lanchonetc: 



LET BS-" 
30 PRINT AS 
35 INPUT H 

40 PRINT ASl"SACOS DE FRITAS"; 
B3 

45 INPUT S 
50 PRINT AS 
55 INPUT M 
60 PRINT "OBHIGADO 

'•;(H« 15000 + S*5000-H1*13000 
" POR FAVOR." 



MILK SHAKES" :B$ 



IRA CUSTAR 



A possibilJdade de reduzir o tamanho 
do!i programas e a razao pefa qual sis- 
temas de processamento de dados e de 
textos ■ — que incluem informagoes e 
mensagens muito utilizadas, tais como 
"niimero da conta do cliente" e "pre- 
90 por milhar" e "18% de ICM" — uti- 
lizam variaveis alfanumericas. 

Voc§ tambem podera emprega-ias na 
programacao de jogos. Suponhamos que, 
em um jogo, seja necessario a todo me- 
mento colocar na tela uma linha enorme 
de simbolos graficos — muro de uma 
prisao para um jogo de aventuras, por 
exemplo. Tudo o que voce prccisa fazer 
e digitd-lo uma unica vez, "rotuld-lo" e 
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utiliza-io sempre que quiser. 

Movimente esse cordao por toda a te- 
la, como mostramos no programa: 



DO 

5 CLS 

10 LET BS-" 

20 LET AS=BS+" UMA FELIZ PASCO 

A PAKA VOCES"+BS 

30 FOR N-1 TO 65 

40 PRINT ei60.MIDS(AS,N,32) 

50 PRINT §320.MIDS CAS,66-N,32) 

60 SOUND N* 3.1: NEXT M 

80 GOTO 3 

Para rodar o programa acima nos mi- 
cros da linha TRS-80, substitua as iinhas 
40, 50 e 60; assim: 

40 PRINT e320,MIDS(AS.N.32) 

50 PRINT #640,M1DS{A$,66--N,32) 

60 NEXT N 



10 LET 8$=" 

20 LET AS=B$+" UKA FELIZ 

PASCOA P AHA VOCES "+BS 

30 FOR N-1 TO 65 

40 PRINT INK 2; AT 8 , ; AS (N 

TO N+31) 

30 PRINT INK 2;AT 12,0;AS(66 

-N TO 97-N) 

60 SOUND .02, N/2 

7 NEXT N 

80 GOTO 30 



10 LET B$- 



UMA FELIZ PA 
+ BS 



20 LET AS-B$+" 

SCOA PARA VOCES 

30 FOR N-1 TO 65 

40 PRINT AT 8,0;AS(N TO N+31) 

50 PRINT AT 12,0;A$(66-N TO 97 

-N) 

70 NEXT N 

80 GOTO 30 



fiU 



10 CLS: CLEAR 1000 

20 BS-SPACES (40) 

30 AS-B$+" UMA FEL12 PASCO 



A PARA yoCES "+BS 

40 FOR N-1 TO 80 

50 LOCATE 0.7: PRINT MID$CA$,N,3 

9) 

60 LOCATE 0,14: PRINT MIDS(AS,81 

-N. 39) 

65 FOR X'l TO 50 : NEXT 

70 NEXT 
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10 HOME 
20 BS - " 

" : REM 40 ES 
PACOS 

30 AS - B$ + " UMA FELIZ 
PASCOA PAHA VOCES " + B5 
35 INVERSE 
40 FOR N - 1 TO 80 
50 VTAB 7: PRINT MIDS (AS,N,4 
0) 
60 VTAB 14: PRINT MIDS CAS, 81 

- N,40) 
65 FOR X - 1 TO 100: NEXT 
70 NEXT 
80 GOTO 40 

Aqui voce tern um cordao enorme, co- 
mo mostramos na linha 20 — todos os 
espacos na linha 10, mais a mensagem, 
colocados juntos. Mais adiante;, veremos 
como isso e feito, e como o cordao e 
"cortado" novamente para caber na te- 
la. Mas, se nesse meJo tempo voce qui- 
ser modificar a mensagem, certifique-se 
de que sua nova declara^ao, incluindo os 
espaifos, [em a mesma extensao da origi- 
nal. De outro modo voce teri que desco- 
brir o que significam os mimeros nas Ii- 
nhas 40 a 55 e modifica-Ios. 

As variaveis alfanum^ricas sao tam- 
b^m muito empregadas quando o pro- 
grama precisa entrar uma informagao 
que 6 sempre modificada. Por exempio: 

[i][^rh^ElD55 

10 PRINT 'QUAL E 5EU NOME " 

20 INPUT NS 

30 PRINT "ALO, "iMS 

Neste programa a linha 10 imprime 
o seguinte cordao na tecla: QUAL E O 
SEU NOME, seguido por um ponto de 
interrogaQlo, O computador espera que 
voce entre um nome (um outro cordao) 
e o chama de N$. Na linha 30, ele im- 
prime o cordao "ALO", e chama de 
volta o cordao N$ armazenado na linha 
acima. Assim sera exibido na tela: 

ALO. TOM ( ou PAULO ou PEDRO ) 

ou qualquer outro. Observe que, aqui, 
OS cordoes QUAL t. O SEU NOME e 
ALO nao sao armazenados denlro de 
variaveis, tais como A$ ou QUE$ ou 
ALO$, porque eles aparecem apenas 
uma vez no programa, e o computador 
nao precisa se lembrar do que seja ALO 




— quando ele atinge a linha 20 simples- 
mente le esse cordao e o imprime, 

Ao mesmo tempo, e necessario dar 
um rdtulo para o nome que vai ser en- 
trado. Assim, eie podera ser diferente ca- 
da vez que o programa for rodado. Eie 
i armazenado em uma variavel, na linha 
20 do programa, e usado na linha 30. 

Existem computadores que admitem 
uma forma mais curta e mais clara de 
programagao da declaracao INPUT, 
atraves da combinagao do PRINT 
"mensagem" da linha 10, com o IN- 
PUT da linha 20; 



[ffiEl^l 



10 INPUT -QUAL E SEU NOME?" N$ 
20 PHINT"0LA. " i NS 



cordOes vazios 



Outro modo de trabalhar com varii- 
veis alfanumericas ja foi mostrado an- 
teriormente na iiijao "Apontar.. .Fogo!" 
(pags . 28 e 33 ), Embora varie de com- 
putador para computador a forma de 
escreveruma vari^vel.nessecaso,^ esta: 



20 IF AS 



THEN GOTO 10 



As duas aspas sem nada entre elas sao 
conhecidas como um cordao nulo ou va- 
zio. A linha de programa significa: "se 
a enirada for igual a nada" — isto e, se 
nenhuma tecla estiver sendo pressiona- 
da — "volte para a linha 10 e espere ate 
que uma tecla seja pressionada". Isto 
evita que o computador salte para outra 
parte do programa tao rapidamente que 
o jogador nao tenha tempo de pressio- 
nar uma tecla de comando qualquer, ou 
de ver um resultado ou graftco na tela. 

Duas aspas com um espafo em bran- 
co entre elas, no entanto, sao uma coi- 
sa muito diferente, Se voce modificar a 
linha: 



20 IF AS = 



THEN GOTO 10 



o programa retrocedera a linha 10 ape- 
nas se o caractere entrado peto jogador 
for um espa^o — isto e, se e!e estiver 
pressionando a tecla de espafo. 



p 
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^ UNHA 


FABRICANTE 


MOOELO 
Thor2010 


' FABWCANTE 


MODELO 


PAIS 




Apple 11 + 


Appletronica 


Appletronica 


Ttior2010 


Brasll 


Apple 11 + 


Apple n-»^ 


CCE 


MC-4000Exato 


Apply 


Apply 300 


Brasii 


Sinclair ZX-81 


: Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasii 


A'pplell + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasii 


Apple 11 + 


Apple 11 + 


Digitus 


DGTAP 


CPA 


Polaris 


Brasll 


Apple 11 + 


Apple II + 


Dismac 


D-6100 


Codlmex 


CS-6508 


Brasll 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC 11 


Digitus 


OGT-100 


Brasll 


TRS-80 Mod.HI 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasii 


TRS-aO Mod.lli 


Apple 11+ 


Houston 


Houston AP 


Digitus 


DGTAP 


Brasii 


Apple 11 + 


Apple 11 + 


Magnex 


DM II 


Dismac 


O-8000 


Brasll 


TRS-80 Mod. 1 


Apple 11 + 


Maxltronica 


MX2001 


Dismac 


D-8001/2 


Brasii 


TRS-BO Mod. 1 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasll 


Apple 11 + 


Apple tl+ 


Maxilronjca 


MX-64 


Dynacom 


MX-1600 


Brasll 


TRS-Color 


W Apple 11 + 


Maxitronica 


MaxltronicI 


ENIAC 


ENIAC li 


Brasii 


Apple 11 + 


2 Apple H + 


Microcralt 


CrafllPlus 


Engebras 


AS-1000 


Brasii 


Sinclair ZX-BI 


uV Apple 11+ 


Mllmar 


Apple II Plus 


Filcres 


NEZ-SOOO 


Brasii 


Sinclair ZX-81 


1 Apple 11 + 


Mllmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple 11 + 


': Apple If + 


Milmar 


Apple Senior 


Gradiente 


Expert GPC1 


Brasll 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasii 


Apple 11 + 


Apple 11 + 


Polymax 


Maxxi 


Kemltron 


NajaSOO 


Brasll 


TRS-60 Mod.lli 


Apple 11 + 


Polymax 


Poly Pius 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple 11 + 


Spectrum 


MIcroengenhol 


LZ 


Color 64 


Brasii 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum ed 


Magnex 


DM II 


Brasii 


Apple 11 + 


Apple 11 + 


Su porta 


Venus II 


Maxitronica 


MX-2D01 


Brasii 


Apple 11 + 


Applelt + 


Sycomig 


SIC! 


Maxitronica 


MX-48 


Brasii 


Apple 11 + 


Apple 11 + 


Unltron 


APII 


Maxitronica 


MX-64 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


ElppallPlus 


Maxitronica 


Maxitronic 1 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Bras!! 


Elppa Jr. 


Microcraft 


Craft II Plus 


Brasii 


Apple 11 + 


Apple He 


Microcraft 


Craft He 


Microcraft 


Caltlle 


Brasii 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasii 


Apple Me 


Apple He 


Spectrum 


Microengenholl 


Microdigital 


TK-82C 


Brasll 


Sinclair ZX-81 


USX 


Gradiente 


Expert GPC-1 


Microdigital 


TK-e3 


Brasii 


Sine lair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-as 


Brasll 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigital 


TK-90X 


Brasll 


Sinclair Spectrum 


Sinctaif Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasf) 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasll 


Apple n + 


Sinclair ZX-81 


Engebras 


AS-1000 


MHmar 


Apple Master 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Fllcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasii 


TRS-80 Mod.lV 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasll 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxl 


Brasll 


Apple 11+ ^ 


SinclalrZX-ei 


Prologica 


CP-200 


Polymax 


Poly Plus 


Brasll 


Apple 11 + 


Sinclair ZX-81 


nitas 


Ringo n-470 


Prologica 


CP-200 


Brasii 


Sinclair ZX-SI 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasll 


TRS-aO Mod.lli 


Sinclair ZX81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasii 


TRS-Color 


TRS-80 IVIod. 1 


Dismac 


D-8000 


Prologica 


CP-500 


Brasii 


TRS-aoMod.lM 


TRS-80 Mod. 1 


Dismac 


D-8001/2 


Ritas 


RlngoR-470 


Brasii 


Sinclair ZX-81 


TR5-80 Mod. 1 


LNW 


LNW-30 


Sltarp 


Hotbit H8-800C 


Brasii 


MSX 


TRS-80 Mod. 1 


Video Genie 


Video Genie 1 


Spectrum 


Microengenho 


1 Brasii 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Microengenho 


11 Brasii 


Apple Me 


TRS-80 Mod.lH 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasii 


Apple H + 


TRS-80 Mo<t.lll 


Kemltron 


NajaSOO 


Suporte 


Venus 11 


Brasll 


Apple 11 + 


TRS-80 Mod.lH 


Prologica 


CP-300 


Sycomig 


SICI 


Brasii 


Apple 11 + 


TRS 80 Mod.lH 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasll 


TRS-BO Mod.lli 


TRS 80 Mod.lH 


Sysdata 


Sy$daialll 


Sysdata 


Sysdata IV 


Brasii 


TRS-80 Mod.lV 


TFtS-80 Mod.lli 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasii 


TRS-BO Mod.lll 


TflS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.lV 


Sysdata 


Sysdata IV 


Timex 


Timex 1600 


USA 


Sinclair ZX-81 


TflS-Color 


Codlmex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APH 


Brasii 


Apple 11 + 


TRS-Color 


LZ 


Color 64 


Victor do Brasll 


Elppa 11 Plus 


Brasll 


Apple 11 + 


TRS-Color 


Microdigital 


TKS-800 


Victor do Brasii 


Elppa Jr. 


Brasll 


Apple 11 + 


TRS-Color 

w 


Prologica 

■ m 


CP-400 


Video Genie 


Video Genie 1 


USA 


TRS-ao Mod. 1 


INPUT foi especialmente projetado para 


^ 


-y 


^ 


h!!<i 


,1 


microcomputadores compatlveis com as sete principals ^^J Sinclair zx-si 


H-H TRS-80 L 


^ 1 TK 2000 


flhrimx 




linhas existentes no mercado. 

Os blocos de texlos e listagens de programas aplicados ^^^ 






Stuntto emblefiM ftir seguido de uma 
m», entSo lanto ■> teulo como as 


I - 


—r- 


.apeoas a determinadas linhas de micros podem ser 
ioentificados por meio dos seguintes sfmbolos: 


^mm 


■ ■ 


m 


progTMtas que u 
espklncos pira i 


sesuem passim a ser 
rmna indlcada. . 


MHMI Spectrum 


■Ui TRS-Color L 


■LI Apple II 



PROGRAMACAO DE JOGOS 

Participe da "guerra nas estrelas"... no computador. Desenhe 
na tela os etementos do jogo e construa a sua blindagem. 

LINGUAGEM DE MAQUINA 

Conheca o coracao de um micro, que e e o que faz uma UCP. 
Como o micro acompanha o desenvotvimento de um programa. 

PROGRAMACAO BASIC 

Produza imagens sensacionais na tela do computador, usando 
apenas a imaginacao e alguns truques. 
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iOGOS 
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